home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _h_ / history_of_arkas / arkos.amos / arkos.amosSourceCode next >
AMOS Source Code  |  1994-12-23  |  62KB  |  1,842 lines
  1. Set Buffer 40 : Close Editor : Close Workbench 
  2. Screen Open 0,320,200,16,Lowres : Curs Off 
  3. Dim R(8000),N(29),D$(13),HERO$(9),TIME(9),RO(9),DI(9),A$(4),B$(4),C$(4)
  4. Dim GOBA(9),DWAA(9),ELVA(9),MENA(9),GOA(9),DWA(9),ELA(9),MEA(9)
  5. Dim GA(18),DA(18),EA(18),MA(18),G(18),D(18),E(18),M(18)
  6. Global A$(),B$(),C$(),D$(),R,R(),N(),TIME,HERO,D,DI(),OP,TIME(),RO(),REC,DEF,D()
  7. Global GOBA(),DWAA(),ELVA(),MENA(),GOA(),DWA(),ELA(),MEA()
  8. Global GA(),DA(),EA(),MA(),G(),D(),E(),M(),GOP,DWP,ELP,MEP
  9. Global GOB,DWA,ELV,MEN,HERO$(),TIME,DAY,GW,GL,DW,DL,EW,EL,MW,ML,BLIP
  10. Proc SETUP
  11. Procedure SETUP
  12.    S=Start(5) : For A=1 To 8000 : R(A)=Peek(S+A+1) : Next A : R(2440)=19 : R(3220)=19 : R(7144)=18 : R(4176)=18 : R(4177)=18 : Limit Mouse 
  13.    Default Palette $0,$0,$46F,$89F,$FF0,$FA0,$F0,$A0,$999,$555,$AAA,$373,$773,$337,$737,$FB8,$0,$0,$46F,$89F,$FF0,$FA0,$F0,$A0,$999,$555,$AAA,$373,$773,$337,$737,$FB8
  14.    Screen Open 0,320,200,16,Lowres : Curs Off : Flash Off : Cls 4 : Get Disc Fonts : Get Fonts : Set Font 3 : Ink 0,3
  15.    Box 10,10 To 159,99 : Ink 3 : Paint 11,11,1 : Ink 0,3
  16.    Box 161,10 To 310,99 : Ink 3 : Paint 162,11,1 : Ink 0,3
  17.    Box 10,101 To 159,190 : Ink 3 : Paint 11,102,1 : Ink 0,3
  18.    Box 161,101 To 310,190 : Ink 3 : Paint 162,102,1 : Ink 0,3
  19.    Bob 1,63,38,128 : Bob 2,220,33,127 : Bob 3,63,125,125 : Bob 4,220,140,126
  20.    Set Text 2 : Text 54,92,"MEN" : Text 200,92,"ELVES" : Text 37,180,"GOBLINS" : Text 181,180,"DWARVES"
  21.    Reserve Zone(4) : Set Zone 1,138,60 To 286,148 : Set Zone 2,289,60 To 437,148
  22.    Set Zone 3,138,151 To 286,240 : Set Zone 4,289,151 To 437,240
  23.    RACE:
  24.    X=X Mouse : Y=Y Mouse : M=Mouse Key : Z=Zone(X,Y)
  25.    If M=0 or Z=0 Then Goto RACE
  26.    If Z=1 Then MEN=1
  27.    If Z=2 Then ELV=1
  28.    If Z=3 Then GOB=1
  29.    If Z=4 Then DWA=1
  30.    For A=1 To 96 : Read B : Hot Spot A,0,B : Next A
  31.    Data 0,0,0,14,14,14,14,14,14,14,14,14,14,14,14,14,14,0,0,24,14,14,4,4
  32.    Data 0,0,0,21,21,21,21,21,21,21,21,21,21,21,21,21,21,0,0,36,21,21,6,6
  33.    Data 0,0,0,27,27,27,27,27,27,27,27,27,27,27,27,27,27,0,0,42,27,27,7,7
  34.    Data 0,0,0,55,55,55,55,55,55,56,56,56,55,55,55,55,56,0,0,66,56,55,14,14
  35.    Screen Open 0,320,120,16,Lowres : Flash Off : Curs Off : Screen Open 1,640,120,16,Hires : Screen Display 1,130,170,,
  36.    Flash Off : Curs Off : Set Font 1 : Ink 3 : Bar 0,0 To 640,114 : Wait 10 : Limit Mouse 128,170 To 640,290
  37.    D=1 : HERO=1 : DAY=1 : TIME=8
  38.    For A=1 To 8 : DI(A)=1 : TIME(A)=8 : Next 
  39.    For A=1 To 3 : GA(A)=5000 : DA(A)=5000 : EA(A)=5000 : MA(A)=5000 : Next A
  40.    For A=4 To 8 : GA(A)=3000 : DA(A)=3000 : EA(A)=3000 : MA(A)=3000 : Next A
  41.    For A=9 To 18 : GA(A)=2000 : DA(A)=2000 : EA(A)=2000 : MA(A)=2000 : Next A
  42.    For A=1 To 18 : Read G(A) : Next A
  43.    For A=1 To 18 : Read D(A) : Next A
  44.    For A=1 To 18 : Read E(A) : Next A
  45.    For A=1 To 18 : Read M(A) : Next A
  46.    Data 917,2408,1937,2119,3236,1210,2914,2233,912,1417,2624,2529,2010,3327,3412,2941,1843,2347
  47.    Data 1661,1385,4187,1256,1773,2788,3158,3369,860,1170,2088,2279,2365,3161,3577,3183,3690,1854
  48.    Data 6915,5639,6860,5410,5024,4540,5953,6733,4414,5115,6310,6421,5726,5033,5045,5554,6445,7151
  49.    Data 5263,7177,5692,4055,4363,5080,6171,6686,4757,5170,4673,4175,5288,5986,5775,5582,5865,6579
  50.    For A=1 To 9
  51.       If GOB=1 Then RO(A)=G(A) : GOBA(A)=G(A)
  52.       If DWA=1 Then RO(A)=D(A) : DWAA(A)=D(A)
  53.       If ELV=1 Then RO(A)=E(A) : ELVA(A)=E(A)
  54.       If MEN=1 Then RO(A)=M(A) : MENA(A)=M(A)
  55.    Next A
  56.    R=RO(1)
  57.    If GOB=1 Then Restore GNAME
  58.    If DWA=1 Then Restore DNAME
  59.    If ELV=1 Then Restore ENAME
  60.    If MEN=1 Then Restore MNAME
  61.    For A=1 To 8 : Read HERO$(A) : Next A
  62.    GNAME:
  63.    Data "HAGMAR","GROISH","BLAGMAR","HODOS","DARROK","MISHNIC","TULKAS","HARROG"
  64.    DNAME:
  65.    Data "GWAIN","DORIOS","MORION","LAIN","RINGO","GELFIN","RAGNOR","FALOG"
  66.    ENAME:
  67.    Data "ELROS","NAYLOR","TOROS","ETHROL","FARION","PETRO","ARLON","FARAGIN"
  68.    MNAME:
  69.    Data "CANTOR","KRODOR","SANTOS","CELMAC","HARRON","BREDIR","HODIN","TARRON"
  70.    GOBS:
  71.    If GOB=1 Then Goto DWAS
  72.    GOBA(1)=G(9) : A=GA(9)/4 : GOA(1)=GOA(1)+(GA(9)-A) : GA(9)=A
  73.    GOBA(4)=G(6) : A=GA(6)/4 : GOA(4)=GOA(4)+(GA(6)-A) : GA(6)=A
  74.    GOBA(7)=G(16) : A=GA(17)/4 : GOA(7)=GOA(7)+(GA(17)-A) : GA(17)=A
  75.    DWAS:
  76.    If DWA=1 Then Goto ELAS
  77.    DWAA(1)=D(10) : A=DA(10)/4 : DWA(1)=DWA(1)+(DA(10)-A) : DA(10)=A
  78.    DWAA(4)=D(6) : A=DA(6)/4 : DWA(4)=DWA(4)+(DA(6)-A) : DA(6)=A
  79.    DWAA(7)=D(7) : A=DA(7)/4 : DWA(7)=DWA(7)+(DA(7)-A) : DA(7)=A
  80.    ELAS:
  81.    If ELV=1 Then Goto MEAS
  82.    ELVA(1)=E(1) : A=EA(1)/4 : ELA(1)=ELA(1)+(EA(1)-A) : EA(1)=A
  83.    ELVA(4)=E(2) : A=EA(2)/4 : ELA(4)=ELA(4)+(EA(2)-A) : EA(2)=A
  84.    ELVA(7)=E(3) : A=EA(3)/4 : ELA(7)=ELA(7)+(EA(3)-A) : EA(3)=A
  85.    MEAS:
  86.    If MEN=1 Then Goto LETSGO
  87.    MENA(1)=M(1) : A=MA(1)/4 : MEA(1)=MEA(1)+(MA(1)-A) : MA(1)=A
  88.    MENA(4)=M(2) : A=MA(2)/4 : MEA(4)=MEA(4)+(MA(2)-A) : MA(2)=A
  89.    MENA(7)=M(3) : A=MA(3)/4 : MEA(7)=MEA(7)+(MA(3)-A) : MA(3)=A
  90.    LETSGO:
  91.    Ink 4 : Screen 0 : Randomize Timer : BLIP=1 : Proc MAIN
  92. End Proc
  93. Procedure MAIN
  94.    MAIN:
  95.    If OP=1 Then Proc SCR0
  96.    If OP=2 Then Proc SCR1
  97.    If OP=3 Then Proc NORTH
  98.    If OP=4 Then Proc SOUTH
  99.    If OP=5 Then Proc EAST
  100.    If OP=6 Then Proc WEST
  101.    If OP=7 Then Proc MOV
  102.    If OP=8 Then Proc NIGHT
  103.    If OP=9 Then Proc RECDEP
  104.    If OP=10 Then Proc BATTLE2
  105.    If OP=11 Then Proc BATTLE1
  106.    If OP=12 Then Proc MAP1
  107.    If OP=13 Then Proc MAP2
  108.    If OP=14 Then Proc OPTIONS
  109.    If OP=15 Then Proc STATUS
  110.    If OP=16 Then Proc KEEPIT
  111.    If OP=17 Then Proc FETCHIT
  112.    If OP>0 Then Goto MAIN
  113.    For A=1 To 8 : If TIME(A)<21 Then Goto MAIN1
  114.    Next A
  115.    OP=10 : Goto MAIN
  116.    MAIN1:
  117.    If D=1 Then OP=3
  118.    If D=2 Then OP=4
  119.    If D=3 Then OP=5
  120.    If D=4 Then OP=6
  121.    Goto MAIN
  122. End Proc
  123. Procedure NORTH
  124.    N(1)=R(R-403) : N(2)=R(R-402) : N(3)=R(R-401) : N(4)=R(R-400)
  125.    N(5)=R(R-399) : N(6)=R(R-398) : N(7)=R(R-397) : N(8)=R(R-303)
  126.    N(9)=R(R-302) : N(10)=R(R-301) : N(11)=R(R-300) : N(12)=R(R-299)
  127.    N(13)=R(R-298) : N(14)=R(R-297) : N(15)=R(R-202) : N(16)=R(R-201)
  128.    N(17)=R(R-200) : N(18)=R(R-199) : N(19)=R(R-198) : N(20)=R(R-101)
  129.    N(21)=R(R-100) : N(22)=R(R-99)
  130.    OP=1
  131.    GOP=0 : DWP=0 : ELP=0 : MEP=0
  132.    For A=1 To 18
  133.       If G(A)=R-100 Then GOP=1
  134.       If D(A)=R-100 Then DWP=1
  135.       If E(A)=R-100 Then ELP=1
  136.       If M(A)=R-100 Then MEP=1
  137.    Next A
  138.    For A=1 To 9
  139.       If GOBA(A)=R-100 Then GOP=2 : If GOA(A)<10 Then GOP=1
  140.       If DWAA(A)=R-100 Then DWP=2 : If DWA(A)<10 Then DWP=1
  141.       If ELVA(A)=R-100 Then ELP=2 : If ELA(A)<10 Then ELP=1
  142.       If MENA(A)=R-100 Then MEP=2 : If MEA(A)<10 Then MEP=1
  143.    Next A
  144. End Proc
  145. Procedure SOUTH
  146.    N(1)=R(R+403) : N(2)=R(R+402) : N(3)=R(R+401) : N(4)=R(R+400)
  147.    N(5)=R(R+399) : N(6)=R(R+398) : N(7)=R(R+397) : N(8)=R(R+303)
  148.    N(9)=R(R+302) : N(10)=R(R+301) : N(11)=R(R+300) : N(12)=R(R+299)
  149.    N(13)=R(R+298) : N(14)=R(R+297) : N(15)=R(R+202) : N(16)=R(R+201)
  150.    N(17)=R(R+200) : N(18)=R(R+199) : N(19)=R(R+198) : N(20)=R(R+101)
  151.    N(21)=R(R+100) : N(22)=R(R+99)
  152.    OP=1
  153.    GOP=0 : DWP=0 : ELP=0 : MEP=0
  154.    For A=1 To 9
  155.       If GOBA(A)=R+100 Then GOP=2 : If GOA(A)<10 Then GOP=1
  156.       If DWAA(A)=R+100 Then DWP=2 : If DWA(A)<10 Then DWP=1
  157.       If ELVA(A)=R+100 Then ELP=2 : If ELA(A)<10 Then ELP=1
  158.       If MENA(A)=R+100 Then MEP=2 : If MEA(A)<10 Then MEP=1
  159.    Next A
  160.    For A=1 To 18
  161.       If G(A)=R+100 Then GOP=1
  162.       If D(A)=R+100 Then DWP=1
  163.       If E(A)=R+100 Then ELP=1
  164.       If M(A)=R+100 Then MEP=1
  165.    Next A
  166. End Proc
  167. Procedure EAST
  168.    N(1)=R(R-296) : N(2)=R(R-196) : N(3)=R(R-96) : N(4)=R(R+4)
  169.    N(5)=R(R+104) : N(6)=R(R+204) : N(7)=R(R+304) : N(8)=R(R-297)
  170.    N(9)=R(R-197) : N(10)=R(R-97) : N(11)=R(R+3) : N(12)=R(R+103)
  171.    N(13)=R(R+203) : N(14)=R(R+303) : N(15)=R(R-198) : N(16)=R(R-98)
  172.    N(17)=R(R+2) : N(18)=R(R+102) : N(19)=R(R+202) : N(20)=R(R-99)
  173.    N(21)=R(R+1) : N(22)=R(R+101)
  174.    OP=1
  175.    GOP=0 : DWP=0 : ELP=0 : MEP=0
  176.    For A=1 To 9
  177.       If GOBA(A)=R+1 Then GOP=2 : If GOA(A)<10 Then GOP=1
  178.       If DWAA(A)=R+1 Then DWP=2 : If DWA(A)<10 Then DWP=1
  179.       If ELVA(A)=R+1 Then ELP=2 : If ELA(A)<10 Then ELP=1
  180.       If MENA(A)=R+1 Then MEP=2 : If MEA(A)<10 Then MEP=1
  181.    Next A
  182.    For A=1 To 18
  183.       If G(A)=R+1 Then GOP=1
  184.       If D(A)=R+1 Then DWP=1
  185.       If E(A)=R+1 Then ELP=1
  186.       If M(A)=R+1 Then MEP=1
  187.    Next A
  188. End Proc
  189. Procedure WEST
  190.    N(1)=R(R+296) : N(2)=R(R+196) : N(3)=R(R+96) : N(4)=R(R-4)
  191.    N(5)=R(R-104) : N(6)=R(R-204) : N(7)=R(R-304) : N(8)=R(R+297)
  192.    N(9)=R(R+197) : N(10)=R(R+97) : N(11)=R(R-3) : N(12)=R(R-103)
  193.    N(13)=R(R-203) : N(14)=R(R-303) : N(15)=R(R+198) : N(16)=R(R+98)
  194.    N(17)=R(R-2) : N(18)=R(R-102) : N(19)=R(R-202) : N(20)=R(R+99)
  195.    N(21)=R(R-1) : N(22)=R(R-101)
  196.    OP=1
  197.    GOP=0 : DWP=0 : ELP=0 : MEP=0
  198.    For A=1 To 9
  199.       If GOBA(A)=R-1 Then GOP=2 : If GOA(A)<10 Then GOP=1
  200.       If DWAA(A)=R-1 Then DWP=2 : If DWA(A)<10 Then DWP=1
  201.       If ELVA(A)=R-1 Then ELP=2 : If ELA(A)<10 Then ELP=1
  202.       If MENA(A)=R-1 Then MEP=2 : If MEA(A)<10 Then MEP=1
  203.    Next A
  204.    For A=1 To 18
  205.       If G(A)=R-1 Then GOP=1
  206.       If D(A)=R-1 Then DWP=1
  207.       If E(A)=R-1 Then ELP=1
  208.       If M(A)=R-1 Then MEP=1
  209.    Next A
  210. End Proc
  211. Procedure OPTIONS
  212.    Reserve Zone(19)
  213.    Set Zone 1,139,171 To 185,183 : Set Zone 2,139,185 To 185,197
  214.    Set Zone 3,139,199 To 185,211 : Set Zone 4,139,213 To 185,225
  215.    Set Zone 5,139,227 To 185,239 : Set Zone 6,139,241 To 185,253
  216.    Set Zone 7,139,255 To 185,267 : Set Zone 8,139,269 To 185,281
  217.    Set Zone 9,191,171 To 224,183 : Set Zone 10,191,185 To 224,197
  218.    Set Zone 11,191,199 To 238,211 : Set Zone 12,191,213 To 238,225
  219.    Set Zone 13,191,227 To 238,239 : Set Zone 14,191,255 To 238,267
  220.    Set Zone 15,191,269 To 238,281
  221.    Set Zone 16,267,190 To 280,212 : Set Zone 17,233,234 To 280,256
  222.    Set Zone 18,282,210 To 294,238 : Set Zone 19,254,210 To 266,238
  223.    OPTIONS:
  224.    A$=Inkey$
  225.    If A$="z" Then DAY=37 : For A=1 To 8 : TIME(A)=21 : TIME=21 : Next 
  226.    Sprite Off : X=X Mouse : Y=Y Mouse : M=Mouse Key : Z=Zone(X,Y)
  227.    If RO(1)>0 and Z=1 Then Sprite 1,139,171,135
  228.    If RO(2)>0 and Z=2 Then Sprite 1,139,185,135
  229.    If RO(3)>0 and Z=3 Then Sprite 1,139,199,135
  230.    If RO(4)>0 and Z=4 Then Sprite 1,139,213,135
  231.    If RO(5)>0 and Z=5 Then Sprite 1,139,227,135
  232.    If RO(6)>0 and Z=6 Then Sprite 1,139,241,135
  233.    If RO(7)>0 and Z=7 Then Sprite 1,139,255,135
  234.    If RO(8)>0 and Z=8 Then Sprite 1,139,269,135
  235.    If Z=9 Then Sprite 1,191,171,135
  236.    If Z=10 Then Sprite 1,191,185,135
  237.    If REC=1 and Z=11 Then Sprite 1,191,199,135
  238.    If Z=12 Then Sprite 1,191,213,135
  239.    If Z=13 Then Sprite 1,191,227,135
  240.    If Z=14 Then Sprite 1,191,255,135
  241.    If Z=15 Then Sprite 1,191,269,135
  242.    If M>0 and RO(1)>0 and Z=1 Then A=1 : Gosub WHICH : HERO=1 : R=X2 : OP=0 : Goto WHICH1
  243.    If M>0 and RO(2)>0 and Z=2 Then A=2 : Gosub WHICH : HERO=2 : R=X2 : OP=0 : Goto WHICH1
  244.    If M>0 and RO(3)>0 and Z=3 Then A=3 : Gosub WHICH : HERO=3 : R=X2 : OP=0 : Goto WHICH1
  245.    If M>0 and RO(4)>0 and Z=4 Then A=4 : Gosub WHICH : HERO=4 : R=X2 : OP=0 : Goto WHICH1
  246.    If M>0 and RO(5)>0 and Z=5 Then A=5 : Gosub WHICH : HERO=5 : R=X2 : OP=0 : Goto WHICH1
  247.    If M>0 and RO(6)>0 and Z=6 Then A=6 : Gosub WHICH : HERO=6 : R=X2 : OP=0 : Goto WHICH1
  248.    If M>0 and RO(7)>0 and Z=7 Then A=7 : Gosub WHICH : HERO=7 : R=X2 : OP=0 : Goto WHICH1
  249.    If M>0 and RO(8)>0 and Z=8 Then A=8 : Gosub WHICH : HERO=8 : R=X2 : OP=0 : Goto WHICH1
  250.    If M>0 and Z=9 Then OP=12 : Goto O1
  251.    If M>0 and Z=10 Then OP=13 : Goto O1
  252.    If REC=1 and M>0 and Z=11 Then OP=9 : Goto O1
  253.    If M>0 and Z=12 Then OP=15 : Goto O1
  254.    If M>0 and Z=13 Then OP=0 : TIME=21 : Goto O1
  255.    If M>0 and Z=14 Then OP=17 : Goto O1
  256.    If M>0 and Z=15 Then OP=16 : Goto O1
  257.    If M>0 and Z=16 and D=1 Then OP=7 : Goto O1
  258.    If M>0 and Z=16 Then D=1 : OP=0 : Goto O1
  259.    If M>0 and Z=17 and D=2 Then OP=7 : Goto O1
  260.    If M>0 and Z=17 Then D=2 : OP=0 : Goto O1
  261.    If M>0 and Z=18 and D=3 Then OP=7 : Goto O1
  262.    If M>0 and Z=18 Then D=3 : OP=0 : Goto O1
  263.    If M>0 and Z=19 and D=4 Then OP=7 : Goto O1
  264.    If M>0 and Z=19 Then D=4 : OP=0 : Goto O1
  265.    Goto OPTIONS
  266.    WHICH:
  267.    RO(HERO)=R : X2=RO(A) : TIME(HERO)=TIME : DI(HERO)=D : Return 
  268.    WHICH1:
  269.    R=RO(A) : TIME=TIME(HERO) : D=DI(HERO) : BLIP=1
  270.    O1:
  271.    Reserve Zone 
  272.    Sprite Off 
  273. End Proc
  274. Procedure SCR0
  275.    Autoback 1
  276.    Screen 0 : Fade 1 : Wait 30
  277.    For A=8 To 14 : N(A)=N(A)+24 : Next 
  278.    For A=14 To 19 : N(A)=N(A)+48 : Next 
  279.    For A=20 To 22 : N(A)=N(A)+72 : Next 
  280.    For A=8 To 14 : Bob Off A : Next 
  281.    For A=22 To 28 : Bob Off A : Next 
  282.    For A=34 To 38 : Bob Off A : Next 
  283.    For A=42 To 52 : Bob Off A : Next 
  284.    I=1
  285.    If GOP=1 Then I=125
  286.    If DWP=1 Then I=126
  287.    If ELP=1 Then I=127
  288.    If MEP=1 Then I=128
  289.    If I>1 Then Bob 42,140,64,I
  290.    If GOP=2 or DWP=2 or ELP=2 or MEP=2 Then Goto J Else Goto L1
  291.    J:
  292.    If GOP=2 Then I=125
  293.    If DWP=2 Then I=126
  294.    If ELP=2 Then I=127
  295.    If MEP=2 Then I=128
  296.    B=10
  297.    For A=42 To 52
  298.       Bob A,B,64,I
  299.       Add B,40
  300.    Next A
  301.    L1:
  302.    E=20 : F=40 : G=137 : C=1 : S=8
  303.    If D=1 Then X=-403 : Y=-397
  304.    If D=2 Then X=403 : Y=397
  305.    If D=3 Then X=-296 : Y=304
  306.    If D=4 Then X=296 : Y=-304
  307.    Gosub ARMYPR
  308.    L2:
  309.    E=-22 : F=46 : G=138 : C=2 : S=22
  310.    If D=1 Then X=-303 : Y=-297
  311.    If D=2 Then X=303 : Y=297
  312.    If D=3 Then X=-297 : Y=303
  313.    If D=4 Then X=297 : Y=-303
  314.    Gosub ARMYPR
  315.    L3:
  316.    E=-18 : F=55 : G=139 : C=3 : S=34
  317.    If D=1 Then X=-202 : Y=-198
  318.    If D=2 Then X=202 : Y=198
  319.    If D=3 Then X=-198 : Y=202
  320.    If D=4 Then X=198 : Y=-202
  321.    Gosub ARMYPR
  322.    Bob 56,21,0,131 : Bob 57,113,0,130 : Bob 58,200,0,131
  323.    Bob 59,21,97,129 : Bob 60,113,97,132 : Bob 61,200,97,129
  324.    Bob 62,0,0,133 : Bob 63,288,0,134
  325.    Bob 1,20,46,N(1) : Bob 2,60,46,N(2) : Bob 3,100,46,N(3)
  326.    Bob 4,140,46,N(4) : Bob 5,180,46,N(5) : Bob 6,220,46,N(6)
  327.    Bob 7,260,46,N(7) : Bob 15,-22,52,N(8) : Bob 16,30,52,N(9)
  328.    Bob 17,82,52,N(10) : Bob 18,134,52,N(11) : Bob 19,186,52,N(12)
  329.    Bob 20,238,52,N(13) : Bob 21,290,52,N(14) : Bob 29,-18,61,N(15)
  330.    Bob 30,53,61,N(16) : Bob 31,124,61,N(17) : Bob 32,195,61,N(18)
  331.    Bob 33,266,61,N(19) : Bob 39,-54,74,N(20) : Bob 40,88,74,N(21)
  332.    Bob 41,230,74,N(22)
  333.    Goto L4
  334.    ARMYPR:
  335.    If D=1 Then H=1
  336.    If D=2 Then H=-1
  337.    If D=3 Then H=100
  338.    If D=4 Then H=-100
  339.    X=R+X : Y=R+Y
  340.    For B=X To Y Step H
  341.       For A=1 To 9
  342.          If R(B)<18 or R(B)>19 Then Goto K
  343.          If GOBA(A)=B and GOA(A)>10 or DWAA(A)=B and DWA(A)>10 or ELVA(A)=B and ELA(A)>10 or MENA(A)=B and MEA(A)>10 Then Bob S,E,F,G : Inc S
  344.          K:
  345.       Next A
  346.       If C=1 Then Add E,40
  347.       If C=2 Then Add E,52
  348.       If C=3 Then Add E,72
  349.    Next B
  350.    Return 
  351.    L4:
  352.    If TIME<21 Then Ink 3
  353.    If TIME>20 Then Ink 1
  354.    Bar 20,20 To 300,45
  355.    If TIME<21 Then Ink 2 : Draw 20,45 To 300,45
  356.    Bob Draw : Fade 1 To 1 : Wait 15 : OP=2 : Screen 1
  357. End Proc
  358. Procedure SCR1
  359.    REC=0
  360.    For A=1 To 18
  361.       If GOB=1 Then X1=G(A)
  362.       If DWA=1 Then X1=D(A)
  363.       If ELV=1 Then X1=E(A)
  364.       If MEN=1 Then X1=M(A)
  365.       If R=X1 Then REC=1 : DEF=A
  366.    Next A
  367.    For A=1 To 100 Step 14 : Inc B : Ink 0,10
  368.       If BLIP=1 and RO(B)>0 Then Ink 9 : Bar 23,A+1 To 116,A+10 : Ink 0,9 : Text 25,A+8,HERO$(B) : Box 22,A To 117,A+11
  369.    Next A
  370.    If BLIP=1 Then Ink 9 : Bar 127,2 To 220,11 : Ink 0,9 : Text 129,9,"MAP1" : Box 126,1 To 221,12
  371.    If BLIP=1 Then Ink 9 : Bar 127,16 To 220,25 : Ink 0,9 : Text 129,23,"MAP2" : Box 126,15 To 221,26
  372.    If BLIP=1 Then Ink 9 : Bar 127,44 To 220,53 : Ink 0,9 : Text 129,51,"STATUS" : Box 126,43 To 221,54
  373.    If BLIP=1 Then Ink 9 : Bar 127,58 To 220,67 : Ink 0,9 : Text 129,65,"NIGHTIME" : Box 126,57 To 221,68
  374.    If REC=0 Then Ink 3 : Bar 126,29 To 221,40 : Ink 0
  375.    If REC=1 Then Ink 9 : Bar 127,30 To 220,39 : Ink 0,9 : Box 126,29 To 221,40 : 
  376.    If REC=1 Then Text 129,37,"RECRUIT"
  377.    If BLIP=1 Then Ink 9 : Bar 127,86 To 220,95 : Ink 0,9 : Text 129,93,"LOAD GAME" : Box 126,85 To 221,96
  378.    If BLIP=1 Then Ink 9 : Bar 127,100 To 220,109 : Ink 0,9 : Text 129,107,"SAVE GAME" : Box 126,99 To 221,110
  379.    Paste Bob 250,18,97
  380.    If BLIP=1 Then Ink 9 : Bar 412,1 To 550,12
  381.    If D=1 Then X=R-100 : B$="NORTH"
  382.    If D=2 Then X=R+100 : B$="SOUTH"
  383.    If D=3 Then X=R+1 : B$="EAST"
  384.    If D=4 Then X=R-1 : B$="WEST"
  385.    A$="FACING "+B$
  386.    If Len(A$)<12 Then A=-5 : A$=" "+A$+" " Else A=0
  387.    Ink 0,9 : Text 420+A,9,A$ : Box 412,1 To 550,12
  388.    A$="DAY"+Str$(DAY)
  389.    If Len(A$)<6 Then A=-5 : A$=" "+A$ Else A=0
  390.    If BLIP=1 Then Ink 9 : Bar 443,15 To 528,26 : Ink 0,9 : Text 453+A,23,A$ : Box 443,15 To 528,26
  391.    If BLIP=1 Then Ink 9 : Bar 427,29 To 540,40 : Ink 0,9
  392.    If TIME<12 Then A$=Str$(TIME)+" AM "
  393.    If TIME>12 Then A$=Str$(TIME-12)+" PM "
  394.    If TIME=12 Then A$=" 12 PM "
  395.    A$="TIME"+A$
  396.    If Len(A$)<11 Then A=-5 : A$=" "+A$ Else A=0
  397.    Text 432+A,37,A$ : Box 427,29 To 540,40
  398.    If GOB=1 Then X1=GOA(HERO) : D$=" GOBLINS"
  399.    If DWA=1 Then X1=DWA(HERO) : D$=" DWARVES"
  400.    If ELV=1 Then X1=ELA(HERO) : D$=" ELVES"
  401.    If MEN=1 Then X1=MEA(HERO) : D$=" MEN"
  402.    A$=HERO$(HERO)+" HAS AN ARMY OF"
  403.    C$=Str$(X1)+D$
  404.    A=Len(A$) : If A<22 Then A=(22-A) : A=A*5 : Else A=0
  405.    B=Len(C$) : If B<22 Then B=(22-B) : B=B*5 : Else B=0
  406.    If BLIP=1 Then Ink 9 : Bar 366,43 To 600,68 : Ink 0,9 : Text 372+A,51,A$ : Text 372+B,65,C$ : Box 366,43 To 600,68
  407.    D$="" : A=1 : For B=1 To 18
  408.       If G(A)=X Then D$="A GOBLIN " : F$=Str$(GA(A)) : G$="GOBLINS" : B=20
  409.       If D(A)=X Then D$="A DWARVEN " : F$=Str$(DA(A)) : G$="DWARVES" : B=20
  410.       If E(A)=X Then D$="AN ELVEN " : F$=Str$(EA(A)) : G$="ELVES" : B=20
  411.       If M(A)=X Then D$="A HUMAN " : F$=Str$(MA(A)) : G$="HUMANS" : B=20
  412.    Inc A : Next B
  413.    If D$="" Then Goto NA
  414.    A$="TO HIS "+B$+" IS "+D$
  415.    If A<5 Then E$="CITY"
  416.    If A>4 and A<10 Then E$="TOWN"
  417.    If A>9 Then E$="VILLAGE"
  418.    E$=E$+" HOUSING"+F$+" "+G$
  419.    A=Len(E$) : If A<28 Then A=(28-A) : A=(A*5)-3 Else A=0
  420.    B=Len(A$) : If B<28 Then B=(28-B) : B=(B*5)+2 Else B=0
  421.    Ink 9 : Bar 340,71 To 627,96 : Ink 0,9 : Text 343+B,79,A$ : Text 343+A,93,E$ : Box 340,71 To 627,96
  422.    Goto NB
  423.    NA:
  424.    C$="" : For A=1 To 8
  425.       If GOBA(A)=X Then C$="A GOBLIN " : D$=Str$(GOA(A)+1)+" GOBLINS"
  426.       If DWAA(A)=X Then C$="A DWARVEN " : D$=Str$(DWA(A)+1)+" DWARVES"
  427.       If ELVA(A)=X Then C$="AN ELVEN " : D$=Str$(ELA(A)+1)+" ELVES"
  428.       If MENA(A)=X Then C$="A HUMAN " : D$=Str$(MEA(A)+1)+" MEN"
  429.    Next A
  430.    Ink 3 : Bar 340,71 To 627,96 : Wait Vbl 
  431.    If C$="" Then Goto NB
  432.    A$="TO HIS "+B$+" IS "+C$
  433.    D$="ARMY OF"+D$
  434.    A=Len(A$) : If A<28 Then A=(28-A) : A=A*5 : Else A=0
  435.    B=Len(D$) : If B<28 Then B=(28-B) : B=B*5 : Else B=0
  436.    Ink 9 : Bar 340,71 To 627,96 : Ink 0,9 : Text 343+A,79,A$ : Text 343+B,93,D$ : Box 340,71 To 627,96
  437.    NB:
  438.    OP=14
  439.    BLIP=0
  440. End Proc
  441. Procedure STATUS
  442.    Ink 3 : Bar 224,0 To 640,114 : Ink 9
  443.    Bar 236,24 To 630,108 : Bar 334,13 To 630,24 : Ink 0,9
  444.    Text 240,33,"ATTACK"
  445.    X1=0 : X2=0 : X3=0 : X4=0
  446.    For A=1 To 9 : X1=X1+GOA(A)+1 : X2=X2+DWA(A)+1 : X3=X3+ELA(A)+1 : X4=X4+MEA(A)+1 : Next A
  447.    If GOB=1 Then X1=X1-1
  448.    If DWA=1 Then X2=X2-1
  449.    If ELV=1 Then X3=X3-1
  450.    If MEN=1 Then X4=X4-1
  451.    S1$=Str$(X1) : S2$=Str$(X2) : S3$=Str$(X3) : S4$=Str$(X4)
  452.    Text 337,33,S1$ : Text 410,33,S2$ : Text 482,33,S3$ : Text 554,33,S4$
  453.    Text 240,45,"DEFENCE"
  454.    X1=0 : X2=0 : X3=0 : X4=0
  455.    For A=1 To 18 : X1=X1+GA(A) : X2=X2+DA(A) : X3=X3+EA(A) : X4=X4+MA(A) : Next A
  456.    S1$=Str$(X1) : S2$=Str$(X2) : S3$=Str$(X3) : S4$=Str$(X4)
  457.    Text 337,45,S1$ : Text 410,45,S2$ : Text 482,45,S3$ : Text 554,45,S4$
  458.    Text 240,57,"CITIES"
  459.    X1=0 : X2=0 : X3=0 : X4=0
  460.    For A=1 To 3
  461.       If G(A)>0 Then X1=X1+1
  462.       If D(A)>0 Then X2=X2+1
  463.       If E(A)>0 Then X3=X3+1
  464.       If M(A)>0 Then X4=X4+1
  465.    Next A
  466.    S1$=Str$(X1) : S2$=Str$(X2) : S3$=Str$(X3) : S4$=Str$(X4)
  467.    Text 345,57,S1$ : Text 419,57,S2$ : Text 491,57,S3$ : Text 563,57,S4$
  468.    Text 240,69,"TOWNS"
  469.    X1=0 : X2=0 : X3=0 : X4=0
  470.    For A=4 To 8
  471.       If G(A)>0 Then X1=X1+1
  472.       If D(A)>0 Then X2=X2+1
  473.       If E(A)>0 Then X3=X3+1
  474.       If M(A)>0 Then X4=X4+1
  475.    Next A
  476.    S1$=Str$(X1) : S2$=Str$(X2) : S3$=Str$(X3) : S4$=Str$(X4)
  477.    Text 345,69,S1$ : Text 419,69,S2$ : Text 491,69,S3$ : Text 563,69,S4$
  478.    X1=0 : X2=0 : X3=0 : X4=0
  479.    Text 240,81,"VILLAGES"
  480.    For A=9 To 18
  481.       If G(A)>0 Then X1=X1+1
  482.       If D(A)>0 Then X2=X2+1
  483.       If E(A)>0 Then X3=X3+1
  484.       If M(A)>0 Then X4=X4+1
  485.    Next A
  486.    S1$=Str$(X1) : S2$=Str$(X2) : S3$=Str$(X3) : S4$=Str$(X4)
  487.    Text 345,81,S1$ : Text 419,81,S2$ : Text 491,81,S3$ : Text 563,81,S4$
  488.    Text 240,93,"VICTORIES"
  489.    S1$=Str$(GW) : S2$=Str$(DW) : S3$=Str$(EW) : S4$=Str$(MW)
  490.    Text 345,93,S1$ : Text 419,93,S2$ : Text 491,93,S3$ : Text 563,93,S4$
  491.    Text 240,105,"DEFEATS"
  492.    S1$=Str$(GL) : S2$=Str$(DL) : S3$=Str$(EL) : S4$=Str$(ML)
  493.    Text 345,105,S1$ : Text 419,105,S2$ : Text 491,105,S3$ : Text 563,105,S4$
  494.    Text 337,21,"GOBLINS" : Text 409,21,"DWARVES"
  495.    Text 492,21,"ELVES" : Text 573,21,"NEN"
  496.    For A=24 To 110 Step 12 : Draw 236,A To 630,A : Next A
  497.    Draw 236,24 To 236,108 : Draw 334,13 To 630,13
  498.    For A=334 To 630 Step 74 : Draw A,13 To A,108 : Next A
  499.    RB:
  500.    M=Mouse Key : If M=0 Then Goto RB
  501.    OP=2 : Sprite Off : Ink 3 : Bar 224,0 To 640,110 : BLIP=1
  502. End Proc
  503. Procedure NIGHT
  504.    For A=1 To 8
  505.       If GOB=1 Then GOBA(A)=RO(A)
  506.       If DWA=1 Then DWAA(A)=RO(A)
  507.       If ELV=1 Then ELVA(A)=RO(A)
  508.       If MEN=1 Then MENA(A)=RO(A)
  509.    Next A
  510.    If DAY=1 Then Proc DAY1
  511.    If DAY=2 Then Proc DAY2
  512.    If DAY=3 Then Proc DAY3
  513.    If DAY=4 Then Proc DAY4
  514.    If DAY=5 Then Proc DAY5
  515.    If DAY=6 Then Proc DAY6
  516.    If DAY=7 Then Proc DAY7
  517.    If DAY=8 Then Proc DAY8
  518.    If DAY=9 Then Proc DAY9
  519.    If DAY=10 Then Proc DAY10
  520.    If DAY=11 Then Proc DAY11
  521.    If DAY=12 Then Proc DAY12
  522.    If DAY=13 Then Proc DAY13
  523.    If DAY=14 Then Proc DAY14
  524.    If DAY=15 Then Proc DAY15
  525.    If DAY=16 Then Proc DAY16
  526.    If DAY=17 Then Proc DAY17
  527.    If DAY=18 Then Proc DAY18
  528.    If DAY=19 Then Proc DAY19
  529.    If DAY=20 Then Proc DAY20
  530.    If DAY=21 Then Proc DAY21
  531.    If DAY=22 Then Proc DAY22
  532.    If DAY=23 Then Proc DAY23
  533.    If DAY=24 Then Proc DAY24
  534.    If DAY=25 Then Proc DAY25
  535.    If DAY=26 Then Proc DAY26
  536.    If DAY=27 Then Proc DAY27
  537.    If DAY=28 Then Proc DAY28
  538.    If DAY=29 Then Proc DAY29
  539.    If DAY=30 Then Proc DAY30
  540.    If DAY=31 Then Proc DAY31
  541.    If DAY=32 Then Proc DAY32
  542.    If DAY=33 Then Proc DAY33
  543.    If DAY=34 Then Proc DAY34
  544.    If DAY=35 Then Proc DAY35
  545.    If DAY=36 Then Proc DAY36
  546.    D1:
  547.    Inc DAY
  548.    Show 
  549.    OP=0
  550. End Proc
  551. Procedure MOV
  552.    If D=1 Then Goto NORTH
  553.    If D=2 Then Goto SOUTH
  554.    If D=3 Then Goto EAST
  555.    If D=4 Then Goto WEST
  556.    NORTH:
  557.    If R(R-100)=1 or R(R-100)=3 or TIME>200 Then OP=0 : Goto O2
  558.    R=R-100
  559.    Goto MOV1
  560.    SOUTH:
  561.    If R(R+100)=1 or R(R+100)=3 or TIME>200 Then OP=0 : Goto O2
  562.    R=R+100
  563.    Goto MOV1
  564.    EAST:
  565.    If R(R+1)=1 or R(R+1)=3 or TIME>200 Then OP=0 : Goto O2
  566.    R=R+1
  567.    Goto MOV1
  568.    WEST:
  569.    If R(R-1)=1 or R(R-1)=3 or TIME>200 Then OP=0 : Goto O2
  570.    R=R-1
  571.    MOV1:
  572.    If R(R)=2 Then TIME=TIME+2
  573.    If R(R)>3 and R(R)<16 Then TIME=TIME+2 : Goto O2
  574.    If R(R)=16 or R(R)=17 Then TIME=TIME+3
  575.    If R(R)=18 or R(R)=19 Then TIME=TIME+2
  576.    If R(R)=20 Then TIME=TIME+4
  577.    If R(R)>20 Then TIME=TIME+3
  578.    O2:
  579.    RO(HERO)=R
  580.    If GOB=1 Then GOBA(HERO)=R
  581.    If DWA=1 Then DWAA(HERO)=R
  582.    If ELV=1 Then ELVA(HERO)=R
  583.    If MEN=1 Then MENA(HERO)=R
  584.    OP=0
  585. End Proc
  586. Procedure BATTLE1
  587.    BLIP=1
  588.    BATT:
  589.    ZZ=Free
  590.    A$(1)=" GOBLINS " : A$(2)=" DWARVES " : A$(3)=" ELVES " : A$(4)=" MEN "
  591.    B$(1)=" A GOBLIN " : B$(2)=" A DWARVEN " : B$(3)=" AN ELVEN " : B$(4)=" A HUMAN "
  592.    C$(1)="CITY" : C$(2)="TOWN" : C$(3)="VILLAGE"
  593.    For A=1 To 9 : For B=1 To 18
  594.          WHO1=1
  595.          If GOBA(A)=D(B) and D(B)>0 Then WHO2=2 : Goto GD
  596.          If GOBA(A)=E(B) and E(B)>0 Then WHO2=3 : Goto GE
  597.          If GOBA(A)=M(B) and M(B)>0 Then WHO2=4 : Goto GM
  598.          WHO1=2
  599.          If DWAA(A)=G(B) and G(B)>0 Then WHO2=1 : Goto DG
  600.          If DWAA(A)=E(B) and E(B)>0 Then WHO2=3 : Goto DE
  601.          If DWAA(A)=M(B) and M(B)>0 Then WHO2=4 : Goto DM
  602.          WHO1=3
  603.          If ELVA(A)=G(B) and G(B)>0 Then WHO2=1 : Goto EG
  604.          If ELVA(A)=D(B) and D(B)>0 Then WHO2=2 : Goto ED
  605.          If ELVA(A)=M(B) and M(B)>0 Then WHO2=4 : Goto EM
  606.          WHO1=4
  607.          If MENA(A)=G(B) and G(B)>0 Then WHO2=1 : Goto MG
  608.          If MENA(A)=D(B) and D(B)>0 Then WHO2=2 : Goto MD
  609.          If MENA(A)=E(B) and E(B)>0 Then WHO2=3 : Goto ME
  610.          B1:
  611.    Next B : Next A
  612.    Print : Centre "A NEW DAY DAWNS"
  613.    For A=1 To 8
  614.       If GOB=1 Then RO(A)=GOBA(A)
  615.       If DWA=1 Then RO(A)=DWAA(A)
  616.       If ELV=1 Then RO(A)=ELVA(A)
  617.       If MEN=1 Then RO(A)=MENA(A)
  618.    Next A
  619.    For A=8 To 1 Step -1
  620.       If RO(A)>0 Then HERO=A : R=RO(HERO) : D=DI(HERO) : TIME=TIME(HERO)
  621.    Next A
  622.    TIME=8 : OP=0
  623.    For A=1 To 8
  624.       If RO(A)=0 Then TIME(A)=99 Else TIME(A)=8
  625.    Next A
  626.    If DAY>36 Then Proc THEEND
  627.    MM:
  628.    M=Mouse Key : If M=0 Then Goto MM
  629.    Ink 3 : Bar 0,0 To 640,114 : OP=8 : Pop Proc
  630.    GD:
  631.    X1=GOA(A) : X2=DA(B) : X3=D(B) : X4=GOBA(A)
  632.    Gosub RESULT
  633.    GOA(A)=X1 : DA(B)=X2 : D(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : DW=DW+X6 : DL=DL+X7
  634.    Goto BATT
  635.    GE:
  636.    X1=GOA(A) : X2=EA(B) : X3=E(B) : X4=GOBA(A)
  637.    Gosub RESULT
  638.    GOA(A)=X1 : EA(B)=X2 : E(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : EW=EW+X6 : EL=EL+X7
  639.    Goto BATT
  640.    GM:
  641.    X1=GOA(A) : X2=MA(B) : X3=M(B) : X4=GOBA(A)
  642.    Gosub RESULT
  643.    GOA(A)=X1 : MA(B)=X2 : M(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : MW=MW+X6 : ML=ML+X7
  644.    Goto BATT
  645.    DG:
  646.    X1=DWA(A) : X2=GA(B) : X3=G(B) : X4=DWAA(A)
  647.    Gosub RESULT
  648.    DWA(A)=X1 : GA(B)=X2 : G(B)=X3 : DWAA(A)=X4 : DW=DW+X7 : DL=DL+X6 : GW=GW+X6 : GL=GL+X7
  649.    Goto BATT
  650.    DE:
  651.    X1=DWA(A) : X2=EA(B) : X3=E(B) : X4=DWAA(A)
  652.    Gosub RESULT
  653.    DWA(A)=X1 : EA(B)=X2 : E(B)=X3 : DWAA(A)=X4 : DW=DW+X7 : DL=DL+X6 : EW=EW+X6 : EL=EL+X7
  654.    Goto BATT
  655.    DM:
  656.    X1=DWA(A) : X2=MA(B) : X3=M(B) : X4=DWAA(A)
  657.    Gosub RESULT
  658.    DWA(A)=X1 : MA(B)=X2 : M(B)=X3 : DWAA(A)=X4 : DW=DW+X7 : DL=DL+X6 : MW=MW+X6 : ML=ML+X7
  659.    Goto BATT
  660.    EG:
  661.    X1=ELA(A) : X2=GA(B) : X3=G(B) : X4=ELVA(A)
  662.    Gosub RESULT
  663.    ELA(A)=X1 : GA(B)=X2 : G(B)=X3 : ELVA(A)=X4 : EW=EW+X7 : EL=EL+X6 : GW=GW+X6 : GL=GL+X7
  664.    Goto BATT
  665.    ED:
  666.    X1=ELA(A) : X2=DA(B) : X3=D(B) : X4=ELVA(A)
  667.    Gosub RESULT
  668.    ELA(A)=X1 : DA(B)=X2 : D(B)=X3 : ELVA(A)=X4 : EW=EW+X7 : EL=EL+X6 : DW=DW+X6 : DL=DL+X7
  669.    Goto BATT
  670.    EM:
  671.    X1=ELA(A) : X2=MA(B) : X3=M(B) : X4=ELVA(A)
  672.    Gosub RESULT
  673.    ELA(A)=X1 : MA(B)=X2 : M(B)=X3 : ELVA(A)=X4 : EW=EW+X7 : EL=EL+X6 : MW=MW+X6 : ML=ML+X7
  674.    Goto BATT
  675.    MG:
  676.    X1=MEA(A) : X2=GA(B) : X3=G(B) : X4=MENA(A)
  677.    Gosub RESULT
  678.    MEA(A)=X1 : GA(B)=X2 : G(B)=X3 : MENA(A)=X4 : MW=MW+X7 : ML=ML+X6 : GW=GW+X6 : GL=GL+X7
  679.    Goto BATT
  680.    MD:
  681.    X1=MEA(A) : X2=DA(B) : X3=D(B) : X4=MENA(A)
  682.    Gosub RESULT
  683.    MEA(A)=X1 : DA(B)=X2 : D(B)=X3 : MENA(A)=X4 : MW=MW+X7 : ML=ML+X6 : DW=DW+X6 : DL=DL+X7
  684.    Goto BATT
  685.    ME:
  686.    X1=MEA(A) : X2=EA(B) : X3=E(B) : X4=MENA(A)
  687.    Gosub RESULT
  688.    MEA(A)=X1 : EA(B)=X2 : E(B)=X3 : MENA(A)=X4 : MW=MW+X7 : ML=ML+X6 : EW=EW+X6 : EL=EL+X7
  689.    Goto BATT
  690.    RESULT:
  691.    If B<4 Then C=1
  692.    If B>3 and B<9 Then C=2
  693.    If B>8 and B<19 Then C=3
  694.    Gosub RESULT1
  695.    If Y1=1 Then X1=0 : X4=0 : X5=Rnd(X2/6) : X2=(X2-(X2/6))+X5 : X6=1 : X7=0
  696.    If Y1=2 Then X1=0 : X4=0 : X5=Rnd(X2/4) : X2=(X2-(X2/4))+X5 : X6=1 : X7=0
  697.    If Y1=3 Then X1=0 : X4=0 : X5=Rnd(X2/3) : X2=(X2/3)+X5 : X6=1 : X7=0
  698.    If Y1=4 Then X1=0 : X4=0 : X5=Rnd(X2/4) : X2=(X2/4)+X5 : X6=1 : X7=0
  699.    X=Rnd(1)
  700.    If Y1=5 and X=0 Then X1=0 : X4=0 : X2=Rnd(X2/5) : X6=1 : X7=0 : Y1=4
  701.    If Y1=5 and X=0 and X2<10 Then X2=10
  702.    If Y1=5 and X=1 Then X2=0 : X3=0 : X1=Rnd(X1/5) : X6=0 : X7=1
  703.    If Y1=5 and X=1 and X1<10 Then X1=10
  704.    If Y1>4 and R(X3)>3 and R(X3)<6 Then R(X3)=23
  705.    If Y1>4 and R(X3)>12 and R(X3)<15 Then R(X3)=23
  706.    If Y1>4 and R(X3)>6 and R(X3)<9 Then R(X3)=24
  707.    If Y1>4 and R(X3)>9 and R(X3)<12 Then R(X3)=24
  708.    If Y1=6 Then X2=0 : X3=0 : X5=Rnd(X1/4) : X1=(X1/4)+X5 : X6=0 : X7=1
  709.    If Y1=7 Then X2=0 : X3=0 : X5=Rnd(X1/3) : X1=(X1/3)+X5 : X6=0 : X7=1
  710.    If Y1=8 Then X2=0 : X3=0 : X5=Rnd(X1/4) : X1=(X1-(X1/4))+X5 : X6=0 : X7=1
  711.    If Y1=9 Then X2=0 : X3=0 : X5=Rnd(X1/6) : X1=(X1-(X1/6))+X5 : X6=0 : X7=1
  712.    If Y1<5 Then X1$=B$(WHO2) : X2$=C$(C) : X3$=B$(WHO1) : X4$=Str$(X2) : X5$=A$(WHO2)
  713.    If Y1<5 Then X$=X1$+X2$+" HAS DEFEATED"+X3$+"ARMY."+X4$+X5$+"SURVIVED."
  714.    If Y1>4 and C>1 Then X1$=B$(WHO2) : X2$=C$(C) : X3$=A$(WHO1) : X4$=Str$(X1) : X5$=A$(WHO1)
  715.    If Y1>4 and C>1 Then X$=X1$+X2$+" HAS FALLEN TO THE"+X3$+"."+X4$+" "+X5$+"SURVIVED."
  716.    CC=0
  717.    If Y1>4 and C=1 Then X1$=A$(WHO1) : X2$=B$(WHO2) : X3$=Str$(X1) : CC=1
  718.    If Y1>4 and C=1 Then X$=" THE"+X1$+"HAVE CAPTURED"+X2$+"CITY."+X3$+" "+X1$+"SURVIVED."
  719.    Print X$ : Return 
  720.    RESULT1:
  721.    Y1=5
  722.    If X1>X2 Then Goto WIN1
  723.    If X2>X1 Then Goto WIN2
  724.    RN:
  725.    Return 
  726.    WIN1:
  727.    If X2<(X1-(X1/4)) Then Inc Y1
  728.    If X2<(X1/2) Then Inc Y1
  729.    If X2<(X1/4) Then Inc Y1
  730.    If X2<(X1/5) Then Inc Y1
  731.    Goto RN
  732.    WIN2:
  733.    If X1<(X2-(X2/4)) Then Dec Y1
  734.    If X1<(X2/2) Then Dec Y1
  735.    If X1<(X2/4) Then Dec Y1
  736.    If X1<(X2/5) Then Dec Y1
  737.    Goto RN
  738. End Proc
  739. Procedure BATTLE2
  740.    Cls : Pen 3
  741.    B$=Str$(DAY)
  742.    Hide 
  743.    A$="DAY"+B$+" OF THE WAR"
  744.    Locate 0,0 : Centre A$ : Print : Print 
  745.    BATT2:
  746.    A$(1)=" GOBLINS " : A$(2)=" DWARVES " : A$(3)=" ELVES " : A$(4)=" MEN "
  747.    B$(1)=" A GOBLIN " : B$(2)=" A DWARVEN " : B$(3)=" AN ELVEN " : B$(4)=" A HUMAN "
  748.    C$="ARMY"
  749.    For A=1 To 9 : For B=1 To 9
  750.          WHO1=1
  751.          If GOBA(A)=DWAA(B) and GOBA(A)>0 Then WHO2=2 : Goto GD2
  752.          If GOBA(A)=ELVA(B) and GOBA(A)>0 Then WHO2=3 : Goto GE2
  753.          If GOBA(A)=MENA(B) and GOBA(A)>0 Then WHO2=4 : Goto GM2
  754.          WHO1=2
  755.          If DWAA(A)=ELVA(B) and DWAA(A)>0 Then WHO2=3 : Goto DE2
  756.          If DWAA(A)=MENA(B) and DWAA(A)>0 Then WHO2=4 : Goto DM2
  757.          WHO1=3
  758.          If ELVA(A)=MENA(B) and ELVA(A)>0 Then WHO2=4 : Goto EM2
  759.    Next B : Next A
  760.    OP=11 : Goto OO
  761.    GD2:
  762.    X1=GOA(A) : X2=DWA(B) : X3=DWAA(B) : X4=GOBA(A)
  763.    Gosub RESULT2
  764.    GOA(A)=X1 : DWA(B)=X2 : DWAA(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : DW=DW+X6 : DL=DL+X7
  765.    Goto BATT2
  766.    GE2:
  767.    X1=GOA(A) : X2=ELA(B) : X3=ELVA(B) : X4=GOBA(A)
  768.    Gosub RESULT2
  769.    GOA(A)=X1 : ELA(B)=X2 : ELVA(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : EW=EW+X6 : EL=EL+X7
  770.    Goto BATT2
  771.    GM2:
  772.    Gosub RESULT2
  773.    GOA(A)=X1 : MEA(B)=X2 : MENA(B)=X3 : GOBA(A)=X4 : GW=GW+X7 : GL=GL+X6 : MW=MW+X6 : ML=ML+X7
  774.    Goto BATT
  775.    DE2:
  776.    X1=DWA(A) : X2=ELA(B) : X3=ELVA(B) : X4=DWAA(A)
  777.    Gosub RESULT2
  778.    DWA(A)=X1 : ELA(B)=X2 : ELVA(B)=X3 : DWAA(A)=X4 : DW=DW+X7 : DL=DL+X6 : EW=EW+X6 : EL=EL+X7
  779.    Goto BATT2
  780.    DM2:
  781.    X1=DWA(A) : X2=MEA(B) : X3=MENA(B) : X4=DWAA(A)
  782.    Gosub RESULT2
  783.    DWA(A)=X1 : MEA(B)=X2 : MENA(B)=X3 : DWAA(A)=X4 : DW=DW+X7 : DL=DL+X6 : MW=MW+X6 : ML=ML+X7
  784.    Goto BATT2
  785.    EM2:
  786.    X1=ELA(A) : X2=MEA(B) : X3=MENA(B) : X4=ELVA(A)
  787.    Gosub RESULT2
  788.    ELA(A)=X1 : MEA(B)=X2 : MENA(B)=X3 : ELVA(A)=X4 : EW=EW+X7 : EL=EL+X6 : MW=MW+X6 : ML=ML+X7
  789.    Goto BATT2
  790.    RESULT2:
  791.    Gosub RESULT21
  792.    If Y1=1 Then X1=0 : X4=0 : X5=Rnd(X2/6) : X2=(X2-(X2/6))+X5 : X6=1 : X7=0
  793.    If Y1=2 Then X1=0 : X4=0 : X5=Rnd(X2/4) : X2=(X2-(X2/4))+X5 : X6=1 : X7=0
  794.    If Y1=3 Then X1=0 : X4=0 : X5=Rnd(X2/3) : X2=(X2/3)+X5 : X6=1 : X7=0
  795.    If Y1=4 Then X1=0 : X4=0 : X5=Rnd(X2/4) : X2=(X2/4)+X5 : X6=1 : X7=0
  796.    X=Rnd(1)
  797.    If Y1=5 and X=0 Then X1=0 : X4=0 : X2=Rnd(X2/5) : X6=1 : X7=0
  798.    If Y1=5 and X=0 and X2<10 Then X2=10
  799.    If Y1=5 and X=1 Then X2=0 : X3=0 : X1=Rnd(X1/5) : X6=0 : X7=1
  800.    If Y1=5 and X=1 and X1<10 Then X1=10
  801.    If Y1=6 Then X2=0 : X3=0 : X5=Rnd(X1/4) : X1=(X1/4)+X5 : X6=0 : X7=1
  802.    If Y1=7 Then X2=0 : X3=0 : X5=Rnd(X1/3) : X1=(X1/3)+X5 : X6=0 : X7=1
  803.    If Y1=8 Then X2=0 : X3=0 : X5=Rnd(X1/4) : X1=(X1-(X1/4))+X5 : X6=0 : X7=1
  804.    If Y1=9 Then X2=0 : X3=0 : X5=Rnd(X1/6) : X1=(X1-(X1/6))+X5 : X6=0 : X7=1
  805.    If Y1<5 Then D$=Str$(X2) : X$=B$(WHO2)+C$+" HAVE DEFEATED"+B$(WHO1)+C$+"."+D$+A$(WHO2)+"SURVIVED."
  806.    If Y1>4 Then D$=Str$(X1) : X$=B$(WHO1)+C$+" HAVE DEFEATED"+B$(WHO2)+C$+"."+D$+A$(WHO1)+"SURVIVED."
  807.    Print X$ : Return 
  808.    RESULT21:
  809.    Y1=5
  810.    If X1>X2 Then Goto WIN21
  811.    If X2>X1 Then Goto WIN22
  812.    RN2:
  813.    Return 
  814.    WIN21:
  815.    If X2<(X1-(X1/4)) Then Inc Y1
  816.    If X2<(X1/2) Then Inc Y1
  817.    If X2<(X1/4) Then Inc Y1
  818.    If X2<(X1/5) Then Inc Y1
  819.    Goto RN2
  820.    WIN22:
  821.    If X1<(X2-(X2/4)) Then Dec Y1
  822.    If X1<(X2/2) Then Dec Y1
  823.    If X1<(X2/4) Then Dec Y1
  824.    If X1<(X2/5) Then Dec Y1
  825.    Goto RN2
  826.    OO:
  827. End Proc
  828. Procedure RECDEP
  829.   If HERO>1 Then Goto NOA
  830.    Ink 3 : Bar 224,0 To 640,110 : Ink 9
  831.    Bar 257,13 To 630,35 : Bar 342,37 To 534,108 : Bar 435,37 To 439,108 : Ink 0,9
  832.    RECDEP:
  833.    If GOB=1 Then XX=GOA(HERO) : YY=GA(DEF) : C$=" GOBLINS"
  834.    If DWA=1 Then XX=DWA(HERO) : YY=DA(DEF) : C$=" DWARVES"
  835.    If ELV=1 Then XX=ELA(HERO) : YY=EA(DEF) : C$=" ELVES"
  836.    If MEN=1 Then XX=MEA(HERO) : YY=MA(DEF) : C$=" MEN"
  837.    A$=Str$(XX) : B$=Str$(YY) : C=Len(B$) : B$=Right$(B$,C-1)
  838.    If DEF<4 Then D$="CITY"
  839.    If DEF>3 and DEF<9 Then D$="TOWN"
  840.    If DEF>8 Then D$="VILLAGE"
  841.    A$=HERO$(HERO)+" HAS AN ARMY OF"+A$+C$
  842.    A=Len(A$) : If A<37 Then A=(37-A) : A=A*5 : Else A=0
  843.    Text 260+A,21,A$
  844.    B$=B$+C$+" GUARD THE "+D$
  845.    A=Len(B$) : A=(37-A) : A=A*5
  846.    Text 260+A,33,B$
  847.    Text 352,45,"RECRUIT" : Text 454,45,"DEPLOY"
  848.    A$=Str$(YY/4) : B$=Str$(YY/2) : C$=Str$(YY-(YY/4)) : D$=Str$(YY-10) : E$="0"
  849.    If YY<10 Then D$="0"
  850.    If YY<12 Then A$=D$
  851.    If YY<20 Then B$=D$
  852.    If YY<40 Then C$=D$
  853.    Text 369,57,E$ : Text 359,69,A$ : Text 359,81,B$ : Text 359,93,C$ : Text 359,105,D$
  854.    R1=Val(A$) : R2=Val(B$) : R3=Val(C$) : R4=Val(D$)
  855.    A$=Str$(XX/4) : B$=Str$(XX/2) : C$=Str$(XX-(XX/4)) : D$=Str$(XX) : E$="0"
  856.    Text 467,57,E$ : Text 457,69,A$ : Text 457,81,B$ : Text 457,93,C$ : Text 457,105,D$
  857.    D1=Val(A$) : D2=Val(B$) : D3=Val(C$) : D4=Val(D$)
  858.    Box 257,13 To 630,35 : Box 342,37 To 534,108 : Box 435,37 To 438,108
  859.    R1:
  860.    X1=0 : Y1=0 : X=X Mouse : Y=Y Mouse : M=Mouse Key
  861.    If X<297 or X>397 Then Sprite Off 
  862.    If X>296 and X<346 Then Goto RECRUIT
  863.    If X>348 and X<398 Then Goto DEPLOY
  864.    Goto R1
  865.    RECRUIT:
  866.    If Y<224 or Y>293 Then Sprite Off : Goto R1
  867.    If Y>219 and Y<231 Then Sprite 1,300,219,135 : X1=0
  868.    If Y>231 and Y<243 Then Sprite 1,300,231,135 : X1=R1
  869.    If Y>243 and Y<255 Then Sprite 1,300,243,135 : X1=R2
  870.    If Y>255 and Y<267 Then Sprite 1,300,255,135 : X1=R3
  871.    If Y>267 and Y<279 Then Sprite 1,300,267,135 : X1=R4
  872.    If M>0 Then YY=YY-X1 : Goto CHOOSE
  873.    Goto R1
  874.    DEPLOY:
  875.    If Y<224 or Y>293 Then Sprite Off : Goto R1
  876.    If Y>219 and Y<231 Then Sprite 1,348,219,135 : Y1=0
  877.    If Y>231 and Y<243 Then Sprite 1,348,231,135 : Y1=D1
  878.    If Y>243 and Y<255 Then Sprite 1,348,243,135 : Y1=D2
  879.    If Y>255 and Y<267 Then Sprite 1,348,255,135 : Y1=D3
  880.    If Y>267 and Y<279 Then Sprite 1,348,267,135 : Y1=D4
  881.    If M>0 Then XX=XX-Y1 : Goto CHOOSE
  882.    Goto R1
  883. NOA:
  884.    Ink 3 : Bar 224,0 To 640,114 : Ink 9
  885.    Bar 280,16 To 577,100 : Ink 0,9 : Box 280,16 To 577,100
  886.    Text 292,37,"    THIS OPTION IS ONLY"
  887.    Text 292,50,"         AVAILABLE"
  888.    Text 292,65,"     IN THE FULL SCALE"
  889.    Text 292,80,"   VERSION OF THIS GAME."
  890.    FFFFF:
  891.    M=Mouse Click
  892.    If M=0 Then Goto FFFFF
  893.    OP=0 : BLIP=1 : Sprite Off : Ink 3 : Bar 224,0 To 640,114 : Goto NJN
  894.    CHOOSE:
  895.    Sprite Off : XX=XX+X1 : YY=YY+Y1
  896.    If GOB=1 Then GOA(HERO)=XX : GA(DEF)=YY
  897.    If DWA=1 Then DWA(HERO)=XX : DA(DEF)=YY
  898.    If ELV=1 Then ELA(HERO)=XX : EA(DEF)=YY
  899.    If MEN=1 Then MEA(HERO)=XX : MA(DEF)=YY
  900.    Ink 3 : Bar 224,0 To 640,110 : Ink 0,9
  901.    OP=0 : BLIP=1
  902. NJN:
  903. End Proc
  904. Procedure MAP1
  905.    Screen 0 : Fade 1 : Wait 15 : Bob Clear : Wait Vbl : Cls 
  906.    Ink 4
  907.    MAP1:
  908.    X=10 : Y=10 : B=0
  909.    MP:
  910.    For C=(-610+B) To(-590+B)
  911.       A=0
  912.       If R+C<1 or R+C>8000 Then A=1
  913.       If A=0 Then A=R(R+C)
  914.       Paste Bob X,Y,A+100
  915.       X=X+8
  916.    Next C
  917.    Y=Y+8 : X=10 : B=B+100
  918.    If B>1200 Then Goto MP1
  919.    Goto MP
  920.    MP1:
  921.    Text 90,64,"H"
  922.    For A=1 To 6 : Paste Bob 200,A*10,(A+100) : Next A
  923.    Paste Bob 200,70,116 : Paste Bob 200,80,118 : Paste Bob 200,90,120
  924.    Paste Bob 200,100,121 : Paste Bob 200,110,123
  925.    Restore DESC : For A=1 To 11 : Read D$(A) : Next A
  926.    B=1
  927.    For A=10 To 110 Step 10 : Text 212,A+6,D$(B) : B=B+1 : Next A
  928.    DESC:
  929.    Data "Sea","Beach","River","Village","Town","City","Hill","Plain","Mountain","Forest","Ruins"
  930.    Fade 1 To 1 : Wait 15
  931.    MAP2:
  932.    M=Mouse Key : If M=0 Then Goto MAP2
  933.    Cls 
  934.    OP=0
  935. End Proc
  936. Procedure MAP2
  937.    Screen Close 1 : Screen Open 0,320,220,16,Lowres : Flash Off : Curs Off 
  938.    Paste Bob 61,31,98
  939.    Colour 1,$F : Colour 2,$FF0 : Colour 3,$E : Colour 4,$0
  940.    Colour 5,$A0 : Colour 6,$666 : Colour 7,$F0 : Colour 8,$AAA
  941.    Colour 9,$333 : Colour 10,$50 : Colour 11,$50 : Colour 14,$0 : Colour 15,$0
  942.    A$=Str$(R) : A=3 : If R<1000 Then A=2
  943.    B$=Left$(A$,A) : C$=Right$(A$,2)
  944.    Ink 14 : Flash 14,"(000,10)(fff,10)"
  945.    Y=Val(B$) : Y=(Y*2)+30 : X=Val(C$) : X=(X*2)+60 : Box X-7,Y-5 To X-2,Y
  946.    W1:
  947.    M=Mouse Key : If M=0 Then Goto W1
  948.    Screen Open 0,320,120,16,Lowres : Flash Off : Curs Off 
  949.    Screen Open 1,640,120,16,Hires : Screen Display 1,130,170,,
  950.    Flash Off : Curs Off : Set Font 1
  951.    Ink 3 : Bar 0,0 To 640,114 : OP=0 : BLIP=1
  952. End Proc
  953. Procedure DAY1
  954.    D1G:
  955.    If GOB=1 Then Goto D1D
  956.    GOBA(1)=714
  957.    GOBA(4)=1608
  958.    GOBA(7)=2341
  959.    D1D:
  960.    If DWA=1 Then Goto D1E
  961.    DWAA(1)=1170
  962.    DWAA(4)=2788
  963.    DWAA(7)=4187
  964.    D1E:
  965.    If ELV=1 Then Goto D1M
  966.    ELVA(1)=6921
  967.    ELVA(4)=6035
  968.    ELVA(7)=6260
  969.    D1M:
  970.    If MEN=1 Then Goto ED1
  971.    MENA(1)=5257
  972.    MENA(4)=6880
  973.    MENA(7)=5288 : A=MA(13)/4 : MEA(7)=MEA(7)+(MA(13)-A) : MA(13)=A
  974.    ED1:
  975. End Proc
  976. Procedure DAY2
  977.    D2G:
  978.    If GOB=1 Then Goto D2D
  979.    GOBA(1)=917 : A=GA(1)/4 : GOA(1)=GOA(1)+(GA(1)-A) : GA(1)=A
  980.    GOBA(4)=2010 : A=GA(13)/4 : GOA(4)=GOA(4)+(GA(13)-A) : GA(13)=A
  981.    GOBA(7)=2223 : A=GA(8)/4 : GOA(7)=GOA(7)+(GA(8)-A) : GA(8)=A
  982.    D2D:
  983.    If DWA=1 Then Goto D2E
  984.    DWAA(1)=1670
  985.    DWAA(4)=2188
  986.    DWAA(7)=3889
  987.    D2E:
  988.    If ELV=1 Then Goto D2M
  989.    ELVA(1)=6421 : A=EA(12)/4 : ELA(1)=ELA(1)+(EA(12)-A) : EA(12)=A
  990.    ELVA(4)=6233
  991.    ELVA(7)=5956
  992.    D2M:
  993.    If MEN=1 Then Goto EN2
  994.    MENA(1)=4757 : A=MA(9)/4 : MEA(1)=MEA(1)+(MA(9)-A) : MA(9)=A
  995.    MENA(4)=6684
  996.    MENA(7)=5888
  997.    EN2:
  998. End Proc
  999. Procedure DAY3
  1000.    D3G:
  1001.    If GOB=1 Then Goto D3D
  1002.    GOBA(1)=1417 : A=GA(10)/4 : GOA(1)=GOA(1)+(GA(10)-A) : GA(10)=A
  1003.    GOBA(4)=2408 : A=GA(2)/4 : GOA(4)=GOA(4)+(GA(2)-A) : GA(2)=A
  1004.    GOBA(7)=1937 : A=GA(3)/4 : GOA(7)=GOA(7)+(GA(3)-A) : GA(3)=A
  1005.    D3D:
  1006.    If DWA=1 Then Goto D3E
  1007.    DWAA(1)=1967
  1008.    DWAA(4)=2088 : A=DA(11)/4 : DWA(4)=DWA(4)+(DA(11)-A) : DA(11)=A
  1009.    DWAA(7)=3690 : A=DA(17)/4 : DWA(7)=DWA(7)+(DA(17)-A) : DA(17)=A
  1010.    D3E:
  1011.    If ELV=1 Then Goto D3M
  1012.    ELVA(1)=6315
  1013.    ELVA(4)=6733 : A=EA(8)/4 : ELA(4)=ELA(4)+(EA(8)-A) : EA(8)=A
  1014.    ELVA(7)=5554 : A=EA(16)/4 : ELA(7)=ELA(7)+(EA(16)-A) : EA(16)=A
  1015.    D3M:
  1016.    If MEN=1 Then Goto ED3
  1017.    MENA(1)=4255
  1018.    MENA(4)=6686 : A=MA(8)/4 : MEA(4)=MEA(4)+(MA(8)-A) : MA(8)=A
  1019.    MENA(7)=5986 : A=MA(14)/4 : MEA(7)=MEA(7)+(MA(14)-A) : MA(14)=A
  1020.    ED3:
  1021. End Proc
  1022. Procedure DAY4
  1023.    D4G:
  1024.    If GOB=1 Then Goto D4D
  1025.    GOBA(1)=1719
  1026.    GOBA(4)=2513
  1027.    GOBA(7)=1843 : A=GA(17)/4 : GOA(7)=GOA(7)+(GA(17)-A) : GA(17)=A
  1028.    D4D:
  1029.    If DWA=1 Then Goto D4E
  1030.    DWAA(1)=2365 : A=DA(13)/4 : DWA(1)=DWA(1)+(DA(13)-A) : DA(13)=A
  1031.    DWAA(4)=1787
  1032.    DWAA(7)=3485
  1033.    D4E:
  1034.    If ELV=1 Then Goto D4M
  1035.    ELVA(1)=6310 : A=EA(11)/4 : ELA(1)=ELA(1)+(EA(11)-A) : EA(11)=A
  1036.    ELVA(4)=6132
  1037.    ELVA(7)=5953 : A=EA(7)/4 : ELA(7)=ELA(7)+(EA(7)-A) : EA(7)=A
  1038.    D4M:
  1039.    If MEN=1 Then Goto ED4
  1040.    MENA(1)=4055 : A=MA(4)/4 : MEA(1)=MEA(1)+(MA(4)-A) : MA(4)=A
  1041.    MENA(4)=6680
  1042.    MENA(7)=5582 : A=MA(16)/4 : MEA(7)=MEA(7)+(MA(16)-A) : MA(16)=A
  1043.    ED4:
  1044. End Proc
  1045. Procedure DAY5
  1046.    D5G:
  1047.    If GOB=1 Then Goto D5D
  1048.    GOBA(1)=2119 : A=GA(4)/4 : GOA(1)=GOA(1)+(GA(4)-A) : GA(4)=A
  1049.    GOBA(4)=2914 : A=GA(7)/4 : GOA(4)=GOA(4)+(GA(7)-A) : GA(7)=A
  1050.    GOBA(7)=2047
  1051.    D5D:
  1052.    If DWA=1 Then Goto D5E
  1053.    DWAA(1)=2260
  1054.    DWAA(4)=1486
  1055.    DWAA(7)=3183 : A=DA(16)/4 : DWA(7)=DWA(7)+(DA(16)-A) : DA(16)=A
  1056.    D5E:
  1057.    If ELV=1 Then Goto D5M
  1058.    ELVA(1)=5710
  1059.    ELVA(4)=5632
  1060.    ELVA(7)=6553
  1061.    D5M:
  1062.    If MEN=1 Then Goto ED5
  1063.    MENA(1)=4160
  1064.    MENA(4)=6679 : A=MA(18)/4 : MEA(4)=MEA(4)+(MA(18)-A) : MA(18)=A
  1065.    MENA(7)=5080 : A=MA(6)/4 : MEA(7)=MEA(7)+(MA(6)-A) : MA(6)=A
  1066.    ED5:
  1067. End Proc
  1068. Procedure DAY6
  1069.    D6G:
  1070.    If GOB=1 Then Goto D6D
  1071.    GOBA(1)=2125
  1072.    GOBA(4)=3313
  1073.    GOBA(7)=2347 : A=GA(18)/4 : GOA(7)=GOA(7)+(GA(18)-A) : GA(18)=A
  1074.    D6D:
  1075.    If DWA=1 Then Goto D6E
  1076.    DWAA(1)=1861
  1077.    DWAA(4)=1385 : A=DA(2)/4 : DWA(4)=DWA(4)+(DA(2)-A) : DA(2)=A
  1078.    DWAA(7)=2683
  1079.    D6E:
  1080.    If ELV=1 Then Goto D6M
  1081.    ELVA(1)=5410 : A=EA(4)/4 : ELA(1)=ELA(1)+(EA(4)-A) : EA(4)=A
  1082.    ELVA(4)=5726 : A=EA(13)/4 : ELA(4)=ELA(4)+(EA(13)-A) : EA(13)=A
  1083.    ELVA(7)=7153
  1084.    D6M:
  1085.    If MEN=1 Then Goto ED6
  1086.    MENA(1)=4363 : A=MA(5)/4 : MEA(1)=MEA(1)+(MA(5)-A) : MA(5)=A
  1087.    MENA(4)=6475
  1088.    MENA(7)=5074
  1089.    ED6:
  1090. End Proc
  1091. Procedure DAY7
  1092.    D7G:
  1093.    If GOB=1 Then Goto D7D
  1094.    GOBA(1)=2624 : A=GA(11)/4 : GOA(1)=GOA(1)+GA(11)-A : GA(11)=A
  1095.    GOBA(4)=3412 : A=GA(15)/4 : GOA(4)=GOA(4)+GA(15)-A : GA(15)=A
  1096.    GOBA(7)=2353 : GOBA(8)=2353 : GOBA(9)=2353
  1097.    GOA(7)=GOA(7)/3 : GOA(8)=GOA(7) : GOA(9)=GOA(7)
  1098.    D7D:
  1099.    If DWA=1 Then Goto D7E
  1100.    DWAA(1)=1661 : A=DA(1)/4 : DWA(1)=DWA(1)+(DA(1)-A) : DA(1)=A
  1101.    DWAA(4)=1381
  1102.    DWAA(7)=2380
  1103.    D7E:
  1104.    If ELV=1 Then Goto D7M
  1105.    ELVA(1)=5113
  1106.    ELVA(4)=5126
  1107.    ELVA(7)=7151 : A=EA(18)/4 : ELA(7)=ELA(7)+(EA(18)-A) : EA(18)=A
  1108.    D7M:
  1109.    If MEN=1 Then Goto ED7
  1110.    MENA(1)=3763
  1111.    MENA(4)=6372
  1112.    MENA(7)=5171
  1113.    ED7:
  1114. End Proc
  1115. Procedure DAY8
  1116.    D8G:
  1117.    If GOB=1 Then Goto D8D
  1118.    GOBA(1)=2529 : A=GA(12)/4 : GOA(1)=GOA(1)+GA(12)-A : GA(12)=A
  1119.    GOBA(4)=4012 : GOBA(5)=4012 : GOBA(6)=4012
  1120.    GOA(4)=GOA(4)/3 : GOA(5)=GOA(4) : GOA(6)=GOA(4)
  1121.    GOBA(7)=1854 : GOBA(8)=2358 : GOBA(9)=2556
  1122.    D8D:
  1123.    If DWA=1 Then Goto D8E
  1124.    DWAA(1)=1061
  1125.    DWAA(4)=1376
  1126.    DWAA(7)=2279 : A=DA(12)/4 : DWA(7)=DWA(7)+(DA(12)-A) : DA(12)=A
  1127.    D8E:
  1128.    If ELV=1 Then Goto D8M
  1129.    ELVA(1)=5115 : A=EA(10)/4 : ELA(1)=ELA(1)+(EA(10)-A) : EA(10)=A
  1130.    ELVA(4)=5024 : A=EA(5)/4 : ELA(4)=ELA(4)+(EA(5)-A) : EA(5)=A
  1131.    ELVA(7)=7145
  1132.    D8M:
  1133.    If MEN=1 Then Goto ED8
  1134.    MENA(1)=3757
  1135.    MENA(4)=6171 : A=MA(7)/4 : MEA(4)=MEA(4)+(MA(7)-A) : MA(7)=A
  1136.    MENA(7)=4673 : A=MA(11)/4 : MEA(7)=MEA(7)+(MA(11)-A) : MA(11)=A
  1137.    ED8:
  1138. End Proc
  1139. Procedure DAY9
  1140.    D9G:
  1141.    If GOB=1 Then Goto D9D
  1142.    GOBA(1)=3029
  1143.    GOBA(4)=4018 : GOBA(5)=4414 : GOBA(6)=4611
  1144.    GOBA(7)=1456 : GOBA(8)=2365 : GOBA(9)=2956
  1145.    D9D:
  1146.    If DWA=1 Then Goto D9E
  1147.    DWAA(1)=860 : A=DA(9)/4 : DWA(1)=DWA(1)+(DA(9)-A) : DA(9)=A
  1148.    DWAA(4)=1773 : A=DA(5)/4 : DWA(4)=DWA(4)+(DA(5)-A) : DA(5)=A
  1149.    DWAA(7)=1977
  1150.    D9E:
  1151.    If ELV=1 Then Goto D9M
  1152.    ELVA(1)=4615
  1153.    ELVA(4)=5028
  1154.    ELVA(7)=6645
  1155.    D9M:
  1156.    If MEN=1 Then Goto ED9
  1157.    MENA(1)=3751
  1158.    MENA(4)=6065
  1159.    MENA(7)=4175 : A=MA(12)/4 : MEA(7)=MEA(7)+(MA(12)-A) : MA(12)=A
  1160.    ED9:
  1161. End Proc
  1162. Procedure DAY10
  1163.    D10G:
  1164.    If GOB=1 Then Goto D10D
  1165.    GOBA(1)=3035
  1166.    GOBA(4)=4024 : GOBA(5)=4419 : GOBA(6)=4914
  1167.    GOBA(7)=1256 : GOBA(8)=1967 : GOBA(9)=3158
  1168.    D10D:
  1169.    If DWA=1 Then Goto D10E
  1170.    DWAA(1)=1056
  1171.    DWAA(4)=1767
  1172.    DWAA(7)=1871
  1173.    D10E:
  1174.    If ELV=1 Then Goto D10M
  1175.    ELVA(1)=4414 : A=EA(9)/4 : ELA(1)=ELA(1)+(EA(9)-A) : EA(9)=A
  1176.    ELVA(4)=5028 : A=EA(14)/4 : ELA(4)=ELA(4)+(EA(14)-A) : EA(14)=A
  1177.    ELVA(7)=6645 : A=EA(17)/4 : ELA(7)=ELA(7)+(EA(17)-A) : EA(17)=A
  1178.    D10M:
  1179.    If MEN=1 Then Goto ED10
  1180.    MENA(1)=3547
  1181.    MENA(4)=5865 : A=MA(17)/4 : MEA(4)=MEA(4)+(MA(17)-A) : MA(17)=A
  1182.    MENA(7)=3775 : MENA(8)=3775 : MENA(9)=3775
  1183.    MEA(7)=MEA(7)/3 : MEA(8)=MEA(7) : MEA(9)=MEA(7)
  1184.    ED10:
  1185. End Proc
  1186. Procedure DAY11
  1187.    D11G:
  1188.    If GOB=1 Then Goto D11D
  1189.    GOBA(1)=3236 : GOA(1)=GOA(1)+(GA(5)/2) : GA(5)=GA(5)/2
  1190.    GOBA(4)=4031 : GOBA(5)=4425 : GOBA(6)=5114
  1191.    GOBA(7)=857 : GOBA(8)=1468 : GOBA(9)=3161
  1192.    D11D:
  1193.    If DWA=1 Then Goto D11E
  1194.    DWAA(1)=1256 : A=DA(4)/4 : DWA(1)=DWA(1)+(DA(4)-A) : DA(4)=A
  1195.    DWAA(4)=2266
  1196.    DWAA(7)=1966
  1197.    D11E:
  1198.    If ELV=1 Then Goto D11M
  1199.    ELVA(1)=4914 : ELVA(2)=4914 : ELVA(3)=4914
  1200.    ELA(1)=ELA(1)/3 : ELA(2)=ELA(1) : ELA(3)=ELA(1)
  1201.    ELVA(4)=5039
  1202.    ELVA(7)=6045
  1203.    D11M:
  1204.    If MEN=1 Then Goto ED11
  1205.    MENA(1)=3543 : MENA(2)=3543 : MENA(3)=3543
  1206.    MEA(1)=MEA(1)/3 : MEA(2)=MEA(1) : MEA(3)=MEA(1)
  1207.    MENA(4)=5871
  1208.    MENA(7)=3769 : MENA(8)=3769 : MENA(9)=3577
  1209.    ED11:
  1210. End Proc
  1211. Procedure DAY12
  1212.    D12G:
  1213.    If GOB=1 Then Goto D12D
  1214.    GOBA(1)=3539
  1215.    GOBA(4)=4037 : GOBA(5)=4529 : GOBA(6)=5311
  1216.    GOBA(7)=860 : GOBA(8)=1170 : GOBA(9)=3166
  1217.    D12D:
  1218.    If DWA=1 Then Goto D12E
  1219.    DWAA(1)=1856
  1220.    DWAA(4)=2865
  1221.    DWAA(7)=2466
  1222.    D12E:
  1223.    If ELV=1 Then Goto D12M
  1224.    ELVA(1)=3921 : ELVA(2)=3921 : ELVA(3)=3921
  1225.    ELVA(4)=4540 : A=EA(6)/4 : ELA(4)=ELA(4)+(EA(6)-A) : EA(6)=A
  1226.    ELVA(7)=5545
  1227.    D12M:
  1228.    If MEN=1 Then Goto ED12
  1229.    MENA(1)=3242 : MENA(2)=3637 : MENA(3)=3340
  1230.    MENA(4)=5775 : A=MA(15)/4 : MEA(4)=MEA(4)+(MA(15)-A) : MA(15)=A
  1231.    MENA(7)=3365 : MENA(8)=3369 : MENA(9)=3372
  1232.    ED12:
  1233. End Proc
  1234. Procedure DAY13
  1235.    D13G:
  1236.    If GOB=1 Then Goto D13D
  1237.    GOBA(1)=3547 : GOBA(2)=3547 : GOBA(3)=3547
  1238.    GOA(1)=GOA(1)/3 : GOA(2)=GOA(1) : GOA(3)=GOA(1)
  1239.    GOBA(4)=4340 : GOBA(5)=4633 : GOBA(6)=5410
  1240.    GOBA(7)=1361 : GOBA(8)=1571 : GOBA(9)=3369
  1241.    D13D:
  1242.    If DWA=1 Then Goto D13E
  1243.    DWAA(1)=1854 : A=DA(18)/4 : DWA(1)=DWA(1)+(DA(18)-A) : DA(18)=A
  1244.    DWAA(4)=2961
  1245.    DWAA(7)=2966
  1246.    D13E:
  1247.    If ELV=1 Then Goto D13M
  1248.    ELVA(1)=3927 : ELVA(2)=3422 : ELVA(3)=3927
  1249.    ELVA(4)=4546
  1250.    ELVA(7)=5045 : A=EA(15)/4 : ELA(7)=ELA(7)+(EA(15)-A) : EA(15)=A
  1251.    D13M:
  1252.    If MEN=1 Then Goto ED13
  1253.    MENA(1)=2941 : MENA(2)=3631 : MENA(3)=3236
  1254.    MENA(4)=5770 : A=MA(15)/4 : MEA(4)=MEA(4)+(MA(15)-A) : MA(15)=A
  1255.    MENA(7)=3161 : MENA(8)=2965 : MENA(9)=2970
  1256.    ED13:
  1257. End Proc
  1258. Procedure DAY14
  1259.    D14G:
  1260.    If GOB=1 Then Goto D14D
  1261.    GOBA(1)=3552 : GOBA(2)=3552 : GOBA(3)=3552
  1262.    GOBA(4)=4540 : GOBA(5)=5033 : GOBA(6)=6010
  1263.    GOBA(7)=1661 : GOBA(8)=1773 : GOBA(9)=3574
  1264.    D14D:
  1265.    If DWA=1 Then Goto D14E
  1266.    DWAA(1)=1848 : DWAA(2)=1848 : DWAA(3)=1848
  1267.    DWA(1)=DWA(1)/3 : DWA(2)=DWA(1) : DWA(3)=DWA(1)
  1268.    DWAA(4)=2961
  1269.    DWAA(7)=3161 : A=DA(14)/4 : DWA(7)=DWA(7)+(DA(14)-A) : DA(14)=A
  1270.    D14E:
  1271.    If ELV=1 Then Goto D14M
  1272.    ELVA(1)=3933 : ELVA(2)=2922 : ELVA(3)=3933
  1273.    ELVA(4)=4451 : ELVA(5)=4451 : ELVA(6)=4451
  1274.    ELA(4)=ELA(4)/3 : ELA(5)=ELA(4) : ELA(6)=ELA(4)
  1275.    ELVA(7)=4545
  1276.    D14M:
  1277.    If MEN=1 Then Goto ED14
  1278.    MENA(1)=2341 : MENA(2)=3625 : MENA(3)=3032
  1279.    MENA(4)=5764
  1280.    MENA(7)=3158 : MENA(8)=2365 : MENA(9)=2468
  1281.    ED14:
  1282. End Proc
  1283. Procedure DAY15
  1284.    D15G:
  1285.    If GOB=1 Then Goto D15D
  1286.    GOBA(1)=4054 : GOBA(2)=4054 : GOBA(3)=4054
  1287.    GOBA(4)=4645 : GOBA(5)=5027 : GOBA(6)=6310
  1288.    GOBA(8)=1779 : GOBA(9)=3577
  1289.    D15D:
  1290.    If DWA=1 Then Goto D15E
  1291.    DWAA(1)=1843 : DWAA(2)=2448 : DWAA(3)=2448
  1292.    DWAA(4)=3158 : A=DA(7)/4 : DWA(4)=DWA(4)+(DA(7)-A) : DA(7)=A
  1293.    DWAA(7)=3375
  1294.    D15E:
  1295.    If ELV=1 Then Goto D15M
  1296.    ELVA(1)=3526 : ELVA(2)=2624 : ELVA(3)=3939
  1297.    ELVA(4)=4457 : ELVA(5)=4457 : ELVA(6)=4457
  1298.    ELVA(7)=3945
  1299.    D15M:
  1300.    If MEN=1 Then Goto ED15
  1301.    MENA(1)=2337 : MENA(2)=3619 : MENA(3)=2828
  1302.    MENA(4)=5360
  1303.    MENA(7)=2755 : MENA(8)=1867 : MENA(9)=2273
  1304.    ED15:
  1305. End Proc
  1306. Procedure DAY16
  1307.    D16G:
  1308.    If GOB=1 Then Goto D16D
  1309.    GOBA(1)=4060 : GOBA(2)=4060 : GOBA(3)=4655
  1310.    GOBA(4)=5045 : GOBA(5)=5024 : GOBA(6)=6316
  1311.    GOBA(8)=1683 : GOBA(9)=3075
  1312.    D16D:
  1313.    If DWA=1 Then Goto D16E
  1314.    DWAA(1)=2343 : DWAA(2)=2948 : DWAA(3)=2948
  1315.    DWAA(4)=3252
  1316.    DWAA(7)=3377 : A=DA(15)/4 : DWA(7)=DWA(7)+(DA(15)-A) : DA(15)=A
  1317.    D16E:
  1318.    If ELV=1 Then Goto D16M
  1319.    ELVA(1)=3236 : ELVA(2)=2529 : ELVA(3)=3339
  1320.    ELVA(4)=4462 : ELVA(5)=4563 : ELVA(6)=4462
  1321.    ELVA(7)=3547
  1322.    D16M:
  1323.    If MEN=1 Then Goto ED16
  1324.    MENA(1)=2233 : MENA(2)=3613 : MENA(3)=2529
  1325.    MENA(4)=4956
  1326.    MENA(7)=2155 : MENA(8)=1369 : MENA(9)=2279
  1327.    ED16:
  1328. End Proc
  1329. Procedure DAY17
  1330.    D17G:
  1331.    If GOB=1 Then Goto D17D
  1332.    GOBA(1)=4363 : GOBA(2)=4363 : GOBA(3)=4757
  1333.    GOBA(4)=5448 : GOBA(5)=5426 : GOBA(6)=6421
  1334.    GOBA(8)=1385 : GOBA(9)=2968
  1335.    D17D:
  1336.    If DWA=1 Then Goto D17E
  1337.    DWAA(1)=2347 : DWAA(2)=2943 : DWAA(3)=3345
  1338.    DWAA(4)=3547
  1339.    DWAA(7)=3975 : DWAA(8)=3975 : DWAA(9)=3975
  1340.    DWA(7)=DWA(7)/3 : DWA(8)=DWA(7) : DWA(9)=DWA(7)
  1341.    D17E:
  1342.    If ELV=1 Then Goto D17M
  1343.    ELVA(1)=3231 : ELVA(2)=2125 : ELVA(3)=2941
  1344.    ELVA(4)=4468 : ELVA(5)=5165 : ELVA(6)=4468
  1345.    ELVA(7)=3250 : ELVA(8)=3250 : ELVA(9)=3250
  1346.    ELA(7)=ELA(7)/3 : ELA(8)=ELA(7) : ELA(9)=ELA(7)
  1347.    D17M:
  1348.    If MEN=1 Then Goto ED17
  1349.    MENA(1)=2238 : MENA(2)=3412 : MENA(3)=2624
  1350.    MENA(4)=4454
  1351.    MENA(7)=1854 : MENA(8)=1170 : MENA(9)=2283
  1352.    ED17:
  1353. End Proc
  1354. Procedure DAY18
  1355.    D18G:
  1356.    If GOB=1 Then Goto D18D
  1357.    GOBA(1)=4567 : GOBA(2)=4268 : GOBA(3)=5258
  1358.    GOBA(4)=5554 : GOBA(5)=5726 : GOBA(6)=6910
  1359.    GOBA(9)=2469
  1360.    D18D:
  1361.    If DWA=1 Then Goto D18E
  1362.    DWAA(1)=2847 : DWAA(2)=3038 : DWAA(3)=3340
  1363.    DWAA(4)=4046 : DWAA(5)=4046 : DWAA(6)=4046
  1364.    DWA(4)=DWA(4)/3 : DWA(5)=DWA(4) : DWA(6)=DWA(4)
  1365.    DWAA(7)=4075 : DWAA(8)=4477 : DWAA(9)=4575
  1366.    D18E:
  1367.    If ELV=1 Then Goto D18M
  1368.    ELVA(1)=3327 : ELVA(2)=2121 : ELVA(3)=2945
  1369.    ELVA(4)=4673 : ELVA(5)=5765 : ELVA(6)=4771
  1370.    ELVA(7)=3256 : ELVA(8)=3256 : ELVA(9)=3256
  1371.    D18M:
  1372.    If MEN=1 Then Goto ED18
  1373.    MENA(1)=2343 : MENA(2)=3113 : MENA(3)=2125
  1374.    MENA(4)=4449 : MENA(5)=4449 : MENA(5)=4449
  1375.    MEA(4)=MEA(4)/3 : MEA(5)=MEA(4) : MEA(6)=MEA(4)
  1376.    MENA(7)=1456 : MENA(8)=1671 : MENA(9)=2088
  1377.    ED18:
  1378. End Proc
  1379. Procedure DAY19
  1380.    D19G:
  1381.    If GOB=1 Then Goto D19D
  1382.    GOBA(1)=4871 : GOBA(2)=4173 : GOBA(3)=5263
  1383.    GOBA(4)=5953 : GOBA(5)=5631 : GOBA(6)=6915
  1384.    GOBA(9)=2273
  1385.    D19D:
  1386.    If DWA=1 Then Goto D19E
  1387.    DWAA(1)=2948 : DWAA(2)=3032 : DWAA(3)=3236
  1388.    DWAA(4)=4040 : DWAA(5)=4241 : DWAA(6)=4646
  1389.    DWAA(7)=4675 : DWAA(8)=5077 : DWAA(9)=5275
  1390.    D19E:
  1391.    If ELV=1 Then Goto D19M
  1392.    ELVA(1)=3322 : ELVA(2)=2119 : ELVA(3)=2547
  1393.    ELVA(4)=4175 : ELVA(5)=5865 : ELVA(6)=5171
  1394.    ELVA(7)=3158 : ELVA(8)=3262 : ELVA(9)=3262
  1395.    D19M:
  1396.    If MEN=1 Then Goto ED19
  1397.    MENA(1)=2347 : MENA(2)=2913 : MENA(3)=2121
  1398.    MENA(4)=4447 : MENA(5)=4444 : MENA(5)=4444
  1399.    MENA(7)=1256 : MENA(8)=1773 : MENA(9)=2688
  1400.    ED19:
  1401. End Proc
  1402. Procedure DAY20
  1403.    D20G:
  1404.    If GOB=1 Then Goto D20D
  1405.    GOBA(1)=5171 : GOBA(2)=4673 : GOBA(4)=6452
  1406.    GOBA(5)=5933 : GOBA(9)=2279
  1407.    D20D:
  1408.    If DWA=1 Then Goto D20E
  1409.    DWAA(1)=2944 : DWAA(2)=2828 : DWAA(3)=3231
  1410.    DWAA(4)=4034 : DWAA(5)=4540 : DWAA(6)=5346
  1411.    DWAA(7)=4673 : DWAA(8)=5080 : DWAA(9)=5775
  1412.    D20E:
  1413.    If ELV=1 Then Goto D20M
  1414.    ELVA(1)=3416 : ELVA(2)=1717 : ELVA(3)=2347
  1415.    ELVA(4)=4169 : ELVA(5)=6069 : ELVA(6)=5177
  1416.    ELVA(7)=3161 : ELVA(8)=2662 : ELVA(9)=3367
  1417.    D20M:
  1418.    If MEN=1 Then Goto ED20
  1419.    MENA(1)=1945 : MENA(2)=2411 : MENA(3)=2119
  1420.    MENA(4)=4444 : MENA(5)=4438 : MENA(5)=4539
  1421.    MENA(7)=858 : MENA(8)=1779 : MENA(9)=2788
  1422.    ED20:
  1423. End Proc
  1424. Procedure DAY21
  1425.    D21G:
  1426.    If GOB=1 Then Goto D21D
  1427.    GOBA(1)=5475 : GOBA(2)=5075 : GOBA(4)=6447
  1428.    GOBA(5)=6533 : GOBA(9)=2384
  1429.    D21D:
  1430.    If DWA=1 Then Goto D21E
  1431.    DWAA(1)=2941 : DWAA(2)=2529 : DWAA(3)=3327
  1432.    DWAA(4)=4028 : DWAA(5)=4534 : DWAA(6)=5946
  1433.    DWAA(7)=5171 : DWAA(8)=5582 : DWAA(9)=5870
  1434.    D21E:
  1435.    If ELV=1 Then Goto D21M
  1436.    ELVA(1)=3412 : ELVA(2)=1417 : ELVA(3)=1945
  1437.    ELVA(4)=4164 : ELVA(5)=6171 : ELVA(6)=5180
  1438.    ELVA(7)=2561 : ELVA(8)=2365 : ELVA(9)=3369
  1439.    D21M:
  1440.    If MEN=1 Then Goto ED21
  1441.    MENA(1)=1843 : MENA(2)=2010 : MENA(3)=1717
  1442.    MENA(4)=4438 : MENA(5)=4533 : MENA(5)=4942
  1443.    MENA(7)=860 : MENA(8)=1784 : MENA(9)=3186
  1444.    ED21:
  1445. End Proc
  1446. Procedure DAY22
  1447.    D22G:
  1448.    If GOB=1 Then Goto D22D
  1449.    GOBA(1)=5775 : GOBA(2)=5080 : GOBA(4)=6445
  1450.    GOBA(5)=6733 : GOBA(9)=2088
  1451.    D22D:
  1452.    If DWA=1 Then Goto D22E
  1453.    DWAA(1)=2440 : DWAA(2)=2624 : DWAA(3)=3421
  1454.    DWAA(4)=4022 : DWAA(5)=5033 : DWAA(6)=6445
  1455.    DWAA(7)=4670 : DWAA(8)=5786 : DWAA(9)=5865
  1456.    D22E:
  1457.    If ELV=1 Then Goto D22M
  1458.    ELVA(1)=3013 : ELVA(2)=1413 : ELVA(3)=1843
  1459.    ELVA(4)=4363 : ELVA(5)=5975 : ELVA(6)=5582
  1460.    ELVA(7)=2256 : ELVA(8)=1968 : ELVA(9)=3375
  1461.    D22M:
  1462.    If MEN=1 Then Goto ED22
  1463.    MENA(1)=1839 : MENA(2)=1707 : MENA(3)=1417
  1464.    MENA(4)=4432 : MENA(5)=5033 : MENA(5)=5045
  1465.    MENA(7)=1361 : MENA(8)=1385 : MENA(9)=3183
  1466.    ED22:
  1467. End Proc
  1468. Procedure DAY23
  1469.    D23G:
  1470.    If GOB=1 Then Goto D23D
  1471.    GOBA(1)=5770 : GOBA(2)=5582 : GOBA(4)=6945
  1472.    GOBA(5)=6638 : GOBA(9)=2788
  1473.    D23D:
  1474.    If DWA=1 Then Goto D23E
  1475.    DWAA(1)=2137 : DWAA(2)=2124 : DWAA(3)=3415
  1476.    DWAA(4)=4016 : DWAA(5)=5027 : DWAA(6)=6945
  1477.    DWAA(7)=4366 : DWAA(8)=5986 : DWAA(9)=6070
  1478.    D23E:
  1479.    If ELV=1 Then Goto D23M
  1480.    ELVA(1)=2914 : ELVA(2)=1310 : ELVA(3)=2843
  1481.    ELVA(4)=4061 : ELVA(5)=5775 : ELVA(6)=5786
  1482.    ELVA(7)=1854 : ELVA(8)=1773 : ELVA(9)=3577
  1483.    D23M:
  1484.    If MEN=1 Then Goto ED23
  1485.    MENA(1)=1937 : MENA(2)=1410 : MENA(3)=917
  1486.    MENA(4)=4427 : MENA(5)=5027 : MENA(5)=5447
  1487.    MENA(7)=1661 : MENA(9)=3487
  1488.    ED23:
  1489. End Proc
  1490. Procedure DAY24
  1491.    D24G:
  1492.    If GOB=1 Then Goto D24D
  1493.    GOBA(1)=5865 : GOBA(2)=5786 : GOBA(4)=7151
  1494.    GOBA(5)=6138 : GOBA(9)=3186
  1495.    D24D:
  1496.    If DWA=1 Then Goto D24E
  1497.    DWAA(1)=2233 : DWAA(2)=2119 : DWAA(3)=3412
  1498.    DWAA(4)=4414 : DWAA(5)=5024 : DWAA(6)=6951
  1499.    DWAA(7)=4363 : DWAA(8)=5386 : DWAA(9)=6171
  1500.    D24E:
  1501.    If ELV=1 Then Goto D24M
  1502.    ELVA(1)=2511 : ELVA(2)=1210 : ELVA(3)=2237
  1503.    ELVA(4)=4056 : ELVA(5)=6179 : ELVA(6)=5986
  1504.    ELVA(7)=1355 : ELVA(8)=1372 : ELVA(9)=3075
  1505.    D24M:
  1506.    If MEN=1 Then Goto ED24
  1507.    MENA(2)=1112 : MENA(4)=4422 : MENA(5)=5024
  1508.    MENA(6)=5453 : MENA(9)=3690
  1509.    ED24:
  1510. End Proc
  1511. Procedure DAY25
  1512.    D25G:
  1513.    If GOB=1 Then Goto D25D
  1514.    GOBA(1)=5970 : GOBA(2)=5986 : GOBA(4)=7151
  1515.    GOBA(5)=5639 : GOBA(9)=3183
  1516.    D25D:
  1517.    If DWA=1 Then Goto D25E
  1518.    DWAA(1)=1937 : DWAA(2)=1717 : DWAA(3)=3012
  1519.    DWAA(4)=4914 : DWAA(5)=5524 : DWAA(6)=7151
  1520.    DWAA(7)=4159 : DWAA(8)=5288 : DWAA(9)=6474
  1521.    D25E:
  1522.    If ELV=1 Then Goto D25M
  1523.    ELVA(1)=2010 : ELVA(2)=912 : ELVA(3)=2233
  1524.    ELVA(4)=4055 : ELVA(5)=6579 : ELVA(6)=5386
  1525.    ELVA(7)=1256 : ELVA(8)=1170 : ELVA(9)=2969
  1526.    D25M:
  1527.    If MEN=1 Then Goto ED25
  1528.    MENA(2)=912 : MENA(4)=4416 : MENA(5)=5426
  1529.    MENA(6)=5554 : MENA(9)=4189
  1530.    ED25:
  1531. End Proc
  1532. Procedure DAY26
  1533.    D26G:
  1534.    If GOB=1 Then Goto D26D
  1535.    GOBA(1)=6171 : GOBA(2)=6190 : GOBA(4)=7157
  1536.    GOBA(9)=3690
  1537.    D26D:
  1538.    If DWA=1 Then Goto D26E
  1539.    DWAA(2)=1417 : DWAA(3)=2914
  1540.    DWAA(4)=5115 : DWAA(5)=5726 : DWAA(6)=6653
  1541.    DWAA(7)=4055 : DWAA(8)=5690 : DWAA(9)=6579
  1542.    D26E:
  1543.    If ELV=1 Then Goto D26M
  1544.    ELVA(1)=2408 : ELVA(2)=714 : ELVA(3)=1937
  1545.    ELVA(4)=4655 : ELVA(5)=6686 : ELVA(6)=5288
  1546.    ELVA(7)=858 : ELVA(8)=1176 : ELVA(9)=2468
  1547.    D26M:
  1548.    If MEN=1 Then Goto ED26
  1549.    MENA(2)=1008 : MENA(4)=4414 : MENA(5)=5726
  1550.    MENA(6)=5953 : MENA(9)=4187
  1551.    ED26:
  1552. End Proc
  1553. Procedure DAY27
  1554.    D27G:
  1555.    If GOB=1 Then Goto D27D
  1556.    GOBA(1)=6672 : GOBA(2)=6588 : GOBA(4)=6860
  1557.    GOBA(9)=3690
  1558.    D27D:
  1559.    If DWA=1 Then Goto D27E
  1560.    DWAA(2)=1413 : DWAA(3)=2612
  1561.    DWAA(4)=5310 : DWAA(5)=6326 : DWAA(6)=5953
  1562.    DWAA(7)=4655 : DWAA(8)=5692 : DWAA(9)=6684
  1563.    D27E:
  1564.    If ELV=1 Then Goto D27M
  1565.    ELVA(2)=917
  1566.    ELVA(4)=4757 : ELVA(5)=6781 : ELVA(6)=5690
  1567.    ELVA(7)=860 : ELVA(8)=1176 : ELVA(9)=2273
  1568.    D27M:
  1569.    If MEN=1 Then Goto ED27
  1570.    MENA(2)=1607 : MENA(4)=4914 : MENA(5)=5632
  1571.    MENA(6)=5947
  1572.    ED27:
  1573. End Proc
  1574. Procedure DAY28
  1575.    D28G:
  1576.    If GOB=1 Then Goto D28D
  1577.    GOBA(1)=6875 : GOBA(2)=6686 : GOBA(9)=4189
  1578.    D28D:
  1579.    If DWA=1 Then Goto D28E
  1580.    DWAA(2)=1310 : DWAA(3)=2010
  1581.    DWAA(4)=5410 : DWAA(5)=6430 : DWAA(6)=5554
  1582.    DWAA(7)=4757 : DWAA(9)=6686
  1583.    D28E:
  1584.    If ELV=1 Then Goto D28M
  1585.    ELVA(4)=5258 : ELVA(5)=7177 : ELVA(6)=5692
  1586.    ELVA(7)=1461 : ELVA(8)=2079 : ELVA(9)=2776
  1587.    D28M:
  1588.    If MEN=1 Then Goto ED28
  1589.    MENA(2)=2207 : MENA(4)=5115 : MENA(5)=6133
  1590.    MENA(6)=6245
  1591.    ED28:
  1592. End Proc
  1593. Procedure DAY29
  1594.    D29G:
  1595.    If GOB=1 Then Goto D29D
  1596.    GOBA(1)=7177 : GOBA(2)=6389 : GOBA(9)=4187
  1597.    D29D:
  1598.    If DWA=1 Then Goto D29E
  1599.    DWAA(2)=1210 : DWAA(3)=2408
  1600.    DWAA(4)=6010 : DWAA(5)=6733 : DWAA(6)=6154
  1601.    DWAA(7)=5259 : DWAA(9)=6680
  1602.    D29E:
  1603.    If ELV=1 Then Goto D29M
  1604.    ELVA(4)=5263
  1605.    ELVA(7)=1661 : ELVA(8)=2279 : ELVA(9)=3180
  1606.    D29M:
  1607.    If MEN=1 Then Goto ED29
  1608.    MENA(2)=2408 : MENA(4)=5410 : MENA(5)=6733
  1609.    MENA(6)=6445
  1610.    ED29:
  1611. End Proc
  1612. Procedure DAY30
  1613.    D30G:
  1614.    If GOB=1 Then Goto D30D
  1615.    GOBA(2)=5890
  1616.    D30D:
  1617.    If DWA=1 Then Goto D30E
  1618.    DWAA(2)=911 : DWAA(4)=6310 : DWAA(5)=6133
  1619.    DWAA(6)=6160 : DWAA(7)=5263 : DWAA(9)=6977
  1620.    D30E:
  1621.    If ELV=1 Then Goto D30M
  1622.    ELVA(8)=2283 : ELVA(9)=3183
  1623.    D30M:
  1624.    If MEN=1 Then Goto ED30
  1625.    MENA(4)=6010 : MENA(6)=6946
  1626.    ED30:
  1627. End Proc
  1628. Procedure DAY31
  1629.    D31G:
  1630.    If GOB=1 Then Goto D31D
  1631.    GOBA(2)=5692
  1632.    D31D:
  1633.    If DWA=1 Then Goto D31E
  1634.    DWAA(2)=912 : DWAA(4)=6316 : DWAA(5)=5938
  1635.    DWAA(6)=6760 : DWAA(9)=7177
  1636.    D31E:
  1637.    If ELV=1 Then Goto D31M
  1638.    ELVA(8)=2288 : ELVA(9)=3088
  1639.    D31M:
  1640.    If MEN=1 Then Goto ED31
  1641.    MENA(4)=6310 : MENA(6)=7151
  1642.    ED31:
  1643. End Proc
  1644. Procedure DAY32
  1645.    D32G:
  1646.    If GOB=1 Then Goto D32D
  1647.    D32D:
  1648.    If DWA=1 Then Goto D32E
  1649.    DWAA(2)=915 : DWAA(4)=6421 : DWAA(5)=5639
  1650.    DWAA(6)=6860
  1651.    D32E:
  1652.    If ELV=1 Then Goto D32M
  1653.    ELVA(8)=1787 : ELVA(9)=2788
  1654.    D32M:
  1655.    If MEN=1 Then Goto ED32
  1656.    MENA(4)=6316 : MENA(6)=7056
  1657.    ED32:
  1658. End Proc
  1659. Procedure DAY33
  1660.    D33G:
  1661.    If GOB=1 Then Goto D33D
  1662.    D33D:
  1663.    If DWA=1 Then Goto D33E
  1664.    DWAA(2)=917 : DWAA(4)=6920
  1665.    D33E:
  1666.    If ELV=1 Then Goto D33M
  1667.    ELVA(8)=1387 : ELVA(9)=3388
  1668.    D33M:
  1669.    If MEN=1 Then Goto ED33
  1670.    MENA(4)=6421 : MENA(6)=7060
  1671.    ED33:
  1672. End Proc
  1673. Procedure DAY34
  1674.    D34G:
  1675.    If GOB=1 Then Goto D34D
  1676.    D34D:
  1677.    If DWA=1 Then Goto D34E
  1678.    DWAA(4)=6915
  1679.    D34E:
  1680.    If ELV=1 Then Goto D34M
  1681.    ELVA(8)=1385 : ELVA(9)=3690
  1682.    D34M:
  1683.    If MEN=1 Then Goto ED34
  1684.    MENA(4)=6817 : MENA(6)=6860
  1685.    ED34:
  1686. End Proc
  1687. Procedure DAY35
  1688.    D35G:
  1689.    If GOB=1 Then Goto D35D
  1690.    D35D:
  1691.    If DWA=1 Then Goto D35E
  1692.    D35E:
  1693.    If ELV=1 Then Goto D35M
  1694.    ELVA(9)=4189
  1695.    D35M:
  1696.    If MEN=1 Then Goto ED35
  1697.    MENA(4)=6915
  1698.    ED35:
  1699. End Proc
  1700. Procedure DAY36
  1701.    D36G:
  1702.    If GOB=1 Then Goto D36D
  1703.    D36D:
  1704.    If DWA=1 Then Goto D36E
  1705.    D36E:
  1706.    If ELV=1 Then Goto D36M
  1707.    ELVA(9)=4188
  1708.    D36M:
  1709.    If MEN=1 Then Goto ED36
  1710.    ED36:
  1711. End Proc
  1712. Procedure THEEND
  1713.    Screen 1 : Print 
  1714.    Centre "THE THREE OTHER RACES HAVE AGREED TO A CEASEFIRE."
  1715.    Print : Centre "DO YOU WISH TO CONTINUE THE WAR ? (Y/N)"
  1716.    DEI:
  1717.    A$=Inkey$
  1718.    If A$="y" Then Goto RE
  1719.    If A$="n" Then Goto EMESS
  1720.    Goto DEI
  1721.    EMESS:
  1722.    Screen Close 1
  1723.    Erase 1
  1724.    Wait 50
  1725.    Screen Open 0,640,240,2,Hires : Flash Off : Curs Off 
  1726.    Get Fonts : Set Font 3
  1727.    Colour 0,$0 : Colour 1,$8F8
  1728.    Ink 1,0 : Hide : Curs Off : Cls 0
  1729.    Text 180,10,"THE WAR IS OVER !!!!!"
  1730.    A$="THE GOBLINS" : B$="THE DWARVES" : C$="THE ELVES" : D$="THE HUMANS"
  1731.    E$=" REIGN SUPREME." : F$=" ARE NOW THE SUPERIOR RACE."
  1732.    G$=" HAVE MANAGED TO SURVIVE THE WAR." : H$=" HAVE BEEN DEFEATED."
  1733.    I$=" HAVE BEEN TOTALLY DEFEATED. A FEW"
  1734.    J$="REMAIN IN HIDING REBUILDING THEIR SHATTERED LIVES." : Z$="THEY NOW HOLD"
  1735.    For A=1 To 18
  1736.       If G(A)>0 and A<4 Then Inc GC : Add GOP,3
  1737.       If G(A)>0 and A>3 and A<9 Then Inc GT : Add GOP,2
  1738.       If G(A)>0 and A>8 Then Inc GV : Add GOP,1
  1739.       If D(A)>0 and A<4 Then Inc DC : Add DWP,3
  1740.       If D(A)>0 and A>3 and A<9 Then Inc DT : Add DWP,2
  1741.       If D(A)>0 and A>8 Then Inc DV : Add DWP,1
  1742.       If E(A)>0 and A<4 Then Inc EC : Add ELP,3
  1743.       If E(A)>0 and A>3 and A<9 Then Inc ET : Add ELP,2
  1744.       If E(A)>0 and A>8 Then Inc EV : Add ELP,1
  1745.       If M(A)>0 and A<4 Then Inc MC : Add MEP,3
  1746.       If M(A)>0 and A>3 and A<9 Then Inc MT : Add MEP,2
  1747.       If M(A)>0 and A>8 Then Inc MV : Add MEP,1
  1748.    Next A
  1749.    GOB:
  1750.    If GOP=0 Then Text 1,40,A$+I$ : Text 1,52,J$ : Goto DWA
  1751.    X1=GC : X2=GT : X3=GV : Gosub WORKOUT
  1752.    Text 1,55,Z$
  1753.    If GOP<DWP or GOP<ELP or GOP<MEP Then Goto GOB1 Else Goto GOB2
  1754.    GOB1:
  1755.    Text 1,40,A$+H$ : Goto DWA
  1756.    GOB2:
  1757.    If GOP>DWP and GOP>ELP and GOP>MEP Then Goto GOB3
  1758.    Text 1,40,A$+G$ : Goto DWA
  1759.    GOB3:
  1760.    If DWP=0 and ELP=0 and MEP=0 Then Text 1,40,A$+E$ : Goto DWA
  1761.    Text 1,40,A$+F$
  1762.    DWA:
  1763.    Z$=""
  1764.    If DWP=0 Then Text 1,85,B$+I$ : Text 1,100,J$ : Goto ELV
  1765.    X1=DC : X2=DT : X3=DV : Gosub WORKOUT
  1766.    Text 1,100,Z$
  1767.    If DWP<GOP or DWP<ELP or DWP<MEP Then Goto DWA1 Else Goto DWA2
  1768.    DWA1:
  1769.    Text 1,85,B$+H$ : Goto ELV
  1770.    DWA2:
  1771.    If DWP>GOP and DWA>ELP and DWA>MEP Then Goto DWA3
  1772.    Text 1,85,B$+G$ : Goto ELV
  1773.    DWA3:
  1774.    If GOP=0 and ELP=0 and MEP=0 Then Text 1,85,B$+E$ : Goto ELV
  1775.    Text 1,85,B$+F$
  1776.    ELV:
  1777.    Z$=""
  1778.    If ELP=0 Then Text 1,130,C$+I$ : Text 1,145,J$ : Goto MEN
  1779.    X1=EC : X2=ET : X3=EV : Gosub WORKOUT
  1780.    Text 1,145,Z$
  1781.    If ELP<GOP or ELP<DWP or ELP<MEP Then Goto ELV1 Else Goto ELV2
  1782.    ELV1:
  1783.    Text 1,130,C$+H$ : Goto MEN
  1784.    ELV2:
  1785.    If ELP>GOP and ELP>DWP and ELP>MEP Then Goto ELV3
  1786.    Text 1,130,C$+G$ : Goto MEN
  1787.    ELV3:
  1788.    If GOP=0 and DWP=0 and MEP=0 Then Text 1,130,C$+E$ : Goto MEN
  1789.    Text 1,130,C$+F$
  1790.    MEN:
  1791.    Z$=""
  1792.    If MEP=0 Then Text 1,175,D$+I$ : Text 1,190,J$ : Goto BYE
  1793.    X1=MC : X2=MT : X3=MV : Gosub WORKOUT
  1794.    Text 1,190,Z$
  1795.    If MEP<GOP or MEP<DWP or MEP<ELP Then Goto MEN1 Else Goto MEN2
  1796.    MEN1:
  1797.    Text 1,175,D$+H$ : Goto BYE
  1798.    MEN2:
  1799.    If MEP>GOP and MEP>DWP and MEP>ELP Then Goto MEN3
  1800.    Text 1,175,D$+G$ : Goto BYE
  1801.    MEN3:
  1802.    If GOP=0 and DWP=0 and ELP=0 Then Text 1,175,D$+E$ : Goto BYE
  1803.    Text 1,175,D$+F$ : Goto BYE
  1804.    WORKOUT:
  1805.    If X1=1 Then W$=" CITY, " Else W$=" CITIES, "
  1806.    If X2=1 Then X$=" TOWN AND" Else X$=" TOWNS AND "
  1807.    If X3=1 Then Y$=" VILLAGE." Else Y$=" VILLAGES."
  1808.    Z$="THEY NOW HOLD"+Str$(X1)+W$+Str$(X2)+X$+Str$(X3)+Y$
  1809.    Return 
  1810.    BYE:
  1811.    Do 
  1812.    Loop 
  1813.    RE:
  1814.    Ink 3 : Bar 0,0 To 640,114
  1815.    Screen Open 0,320,119,16,Lowres : Flash Off : Curs Off 
  1816.    OP=8
  1817.    Proc MAIN
  1818. End Proc
  1819. Procedure KEEPIT
  1820.    Ink 3 : Bar 224,0 To 640,114 : Ink 9
  1821.    Bar 280,16 To 577,100 : Ink 0,9 : Box 280,16 To 577,100
  1822.    Text 292,37,"    THIS OPTION IS ONLY"
  1823.    Text 292,50,"         AVAILABLE"
  1824.    Text 292,65,"     IN THE FULL SCALE"
  1825.    Text 292,80,"   VERSION OF THIS GAME."
  1826.    FFFF:
  1827.    M=Mouse Click
  1828.    If M=0 Then Goto FFFF
  1829.    OP=0 : BLIP=1 : Sprite Off : Ink 3 : Bar 224,0 To 640,114
  1830. End Proc
  1831. Procedure FETCHIT
  1832.    Ink 3 : Bar 224,0 To 640,114 : Ink 9
  1833.    Bar 280,16 To 577,100 : Ink 0,9 : Box 280,16 To 577,100
  1834.    Text 292,37,"    THIS OPTION IS ONLY"
  1835.    Text 292,50,"         AVAILABLE"
  1836.    Text 292,65,"     IN THE FULL SCALE"
  1837.    Text 292,80,"   VERSION OF THIS GAME."
  1838.    GGGG:
  1839.    M=Mouse Click
  1840.    If M=0 Then Goto GGGG
  1841.    OP=0 : BLIP=1 : Sprite Off : Ink 3 : Bar 224,0 To 640,114
  1842. End Proc